/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / FROMUTS / MONITOR / !Monitor_!RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1f f4 20 3e 20 | 3c 4d 6f 6e 69 74 6f 72 |..... > |<Monitor|
|00000010| 24 44 69 72 3e 2e 21 52 | 75 6e 49 6d 61 67 65 0d |$Dir>.!R|unImage.|
|00000020| 00 14 1f f4 20 2a 2a 2a | 20 46 72 6f 6e 74 2d 65 |.... ***| Front-e|
|00000030| 6e 64 20 66 6f 72 20 4d | 6f 6e 69 74 6f 72 0d 00 |nd for M|onitor..|
|00000040| 1e 32 f4 20 2a 2a 2a 20 | a9 20 53 74 65 76 65 6e |.2. *** |. Steven|
|00000050| 20 4b 72 61 6d 65 72 20 | 28 6b 72 61 6d 65 72 40 | Kramer |(kramer@|
|00000060| 6f 68 6d 2e 70 68 79 73 | 2e 75 76 61 2e 6e 6c 29 |ohm.phys|.uva.nl)|
|00000070| 0d 00 28 1e f4 20 2a 2a | 2a 20 48 6f 6f 67 74 65 |..(.. **|* Hoogte|
|00000080| 20 4b 61 64 69 6a 6b 20 | 32 31 2d 42 49 49 0d 00 | Kadijk |21-BII..|
|00000090| 32 1b f4 20 2a 2a 2a 20 | 31 30 31 38 20 42 45 20 |2.. *** |1018 BE |
|000000a0| 41 6d 73 74 65 72 64 61 | 6d 0d 00 3c 15 f4 20 2a |Amsterda|m..<.. *|
|000000b0| 2a 2a 20 4e 65 74 68 65 | 72 6c 61 6e 64 73 0d 00 |** Nethe|rlands..|
|000000c0| 46 09 f4 20 2a 2a 2a 0d | 00 50 33 f4 20 2a 2a 2a |F.. ***.|.P3. ***|
|000000d0| 20 53 69 6e 63 65 20 65 | 76 65 72 79 6f 6e 65 20 | Since e|veryone |
|000000e0| 74 65 6c 6c 73 20 65 76 | 65 72 79 6f 6e 65 20 61 |tells ev|eryone a|
|000000f0| 62 6f 75 74 20 74 68 65 | 69 72 0d 00 5a 24 f4 20 |bout the|ir..Z$. |
|00000100| 2a 2a 2a 20 66 61 76 6f | 75 72 69 74 65 20 43 44 |*** favo|urite CD|
|00000110| 2c 20 68 65 72 65 27 73 | 20 6d 69 6e 65 3a 0d 00 |, here's| mine:..|
|00000120| 64 27 f4 20 2a 2a 2a 20 | 54 68 65 20 47 65 74 6f |d'. *** |The Geto|
|00000130| 20 42 6f 79 73 20 2d 20 | 54 68 65 20 47 65 74 6f | Boys - |The Geto|
|00000140| 20 42 6f 79 73 0d 00 6e | 28 f4 20 2a 2a 2a 20 41 | Boys..n|(. *** A|
|00000150| 20 67 6f 6c 64 65 6e 20 | 6f 6c 64 69 65 20 74 68 | golden |oldie th|
|00000160| 69 73 20 6f 6e 65 20 28 | 31 39 39 30 29 0d 00 78 |is one (|1990)..x|
|00000170| 20 f4 20 2a 2a 2a 20 54 | 72 79 20 69 74 2c 20 79 | . *** T|ry it, y|
|00000180| 6f 75 27 6c 6c 20 6c 69 | 6b 65 20 69 74 0d 00 82 |ou'll li|ke it...|
|00000190| 09 f4 20 2a 2a 2a 0d 00 | 8c 33 f4 20 2a 2a 2a 20 |.. ***..|.3. *** |
|000001a0| 47 72 65 65 74 69 6e 67 | 73 3a 20 45 76 65 72 79 |Greeting|s: Every|
|000001b0| 20 64 65 64 69 63 61 74 | 65 64 20 41 72 63 20 70 | dedicat|ed Arc p|
|000001c0| 72 6f 67 72 61 6d 6d 65 | 72 0d 00 96 09 f4 20 2a |rogramme|r..... *|
|000001d0| 2a 2a 0d 00 a0 04 0d 00 | aa 3b f4 20 2a 2a 2a 20 |**......|.;. *** |
|000001e0| 61 6e 64 20 74 68 65 20 | 74 65 73 74 20 70 72 6f |and the |test pro|
|000001f0| 67 72 61 6d 2e 2e 2e 20 | 28 69 6e 20 42 41 53 49 |gram... |(in BASI|
|00000200| 43 27 73 20 65 72 72 6f | 72 20 62 75 66 66 65 72 |C's erro|r buffer|
|00000210| 29 0d 00 b4 25 f4 20 2a | 2a 2a 20 61 66 74 65 72 |)...%. *|** after|
|00000220| 20 74 68 69 73 2c 20 6e | 6f 20 6d 6f 72 65 20 52 | this, n|o more R|
|00000230| 45 4d 61 72 6b 73 0d 00 | be 0f 6c 6f 61 64 63 6f |EMarks..|..loadco|
|00000240| 64 65 25 3d b9 0d 00 c8 | 0f 6c 6f 61 64 77 69 6e |de%=....|.loadwin|
|00000250| 73 25 3d b9 0d 00 d2 09 | f2 69 6e 69 74 0d 00 dc |s%=.....|.init...|
|00000260| 0c 50 25 3d 26 38 30 38 | 30 0d 00 e6 09 5b 4f 50 |.P%=&808|0....[OP|
|00000270| 54 32 0d 00 f0 13 53 57 | 49 20 22 4f 53 5f 57 72 |T2....SW|I "OS_Wr|
|00000280| 69 74 65 53 22 0d 00 fa | 1f 45 51 55 53 20 22 48 |iteS"...|.EQUS "H|
|00000290| 65 6c 6c 6f 20 77 6f 72 | 6c 64 22 2b bd 30 3a 41 |ello wor|ld"+.0:A|
|000002a0| 4c 49 47 4e 0d 01 04 0e | 4d 4f 56 20 50 43 2c 52 |LIGN....|MOV PC,R|
|000002b0| 31 34 0d 01 0e 05 5d 0d | 01 18 04 0d 01 22 23 ee |14....].|....."#.|
|000002c0| 20 85 20 f2 65 72 72 28 | f6 24 2b 22 20 61 74 20 | . .err(|.$+" at |
|000002d0| 6c 69 6e 65 20 22 2b c3 | 9e 2c 33 2c 9f 29 0d 01 |line "+.|.,3,.)..|
|000002e0| 2c 05 f5 0d 01 36 09 f2 | 70 6f 6c 6c 0d 01 40 07 |,....6..|poll..@.|
|000002f0| fd 20 30 0d 01 4a 04 0d | 01 54 0a dd f2 70 6f 6c |. 0..J..|.T...pol|
|00000300| 6c 0d 01 5e 30 c8 99 20 | 22 57 69 6d 70 5f 50 6f |l..^0.. |"Wimp_Po|
|00000310| 6c 6c 22 2c 25 31 30 31 | 30 30 30 30 31 31 30 30 |ll",%101|00001100|
|00000320| 30 31 2c 70 6f 6c 6c 20 | b8 20 72 65 61 73 6f 6e |01,poll |. reason|
|00000330| 25 0d 01 68 10 c8 8e 20 | 72 65 61 73 6f 6e 25 20 |%..h... |reason% |
|00000340| ca 0d 01 72 10 c9 20 31 | 3a f2 72 65 64 72 61 77 |...r.. 1|:.redraw|
|00000350| 77 0d 01 7c 0e c9 20 32 | 3a f2 6f 70 65 6e 77 0d |w..|.. 2|:.openw.|
|00000360| 01 86 0f c9 20 33 3a f2 | 63 6c 6f 73 65 77 0d 01 |.... 3:.|closew..|
|00000370| 90 0e c9 20 36 3a f2 63 | 6c 69 63 6b 0d 01 9a 10 |... 6:.c|lick....|
|00000380| c9 20 37 3a f2 65 6e 64 | 64 72 61 67 0d 01 a4 0c |. 7:.end|drag....|
|00000390| c9 20 38 3a f2 6b 65 79 | 0d 01 ae 13 c9 20 39 3a |. 8:.key|..... 9:|
|000003a0| f2 6d 65 6e 75 73 65 6c | 65 63 74 0d 01 b8 0f c9 |.menusel|ect.....|
|000003b0| 20 31 31 3a f2 6c 6f 73 | 65 63 0d 01 c2 17 c9 20 | 11:.los|ec..... |
|000003c0| 31 37 2c 31 38 2c 31 39 | 3a f2 6d 65 73 73 61 67 |17,18,19|:.messag|
|000003d0| 65 0d 01 cc 05 cb 0d 01 | d6 05 e1 0d 01 e0 04 0d |e.......|........|
|000003e0| 01 ea 04 0d 01 f4 0a dd | f2 69 6e 69 74 0d 01 fe |........|.init...|
|000003f0| 22 ee 20 85 20 ef 20 34 | 3a db 3a f1 20 f6 24 3b |". . . 4|:.:. .$;|
|00000400| 22 20 61 74 20 6c 69 6e | 65 20 22 3b 9e 3a e0 0d |" at lin|e ";.:..|
|00000410| 02 08 3e 69 73 69 7a 65 | 25 3d 31 30 32 34 2a 36 |..>isize|%=1024*6|
|00000420| 3a 6d 65 6e 75 73 69 7a | 65 25 3d 31 30 32 34 2a |:menusiz|e%=1024*|
|00000430| 33 3a 6d 6f 64 5f 6d 61 | 78 25 3d 31 32 38 3a 73 |3:mod_ma|x%=128:s|
|00000440| 70 72 5f 73 69 7a 65 25 | 3d 31 35 30 30 0d 02 12 |pr_size%|=1500...|
|00000450| 4f de 20 73 74 72 69 6e | 67 20 69 73 69 7a 65 25 |O. strin|g isize%|
|00000460| 2c 6d 65 6e 75 20 6d 65 | 6e 75 73 69 7a 65 25 2c |,menu me|nusize%,|
|00000470| 6d 68 25 28 32 30 29 2c | 62 6c 6b 20 31 30 32 34 |mh%(20),|blk 1024|
|00000480| 2c 70 6f 6c 6c 20 32 35 | 36 2c 73 75 62 70 74 72 |,poll 25|6,subptr|
|00000490| 25 28 34 29 2c 74 61 73 | 6b 20 32 34 0d 02 1c db |%(4),tas|k 24....|
|000004a0| de 20 66 6f 75 6e 64 6c | 69 73 74 20 34 2a 32 35 |. foundl|ist 4*25|
|000004b0| 36 2c 66 69 6e 64 74 61 | 62 6c 65 20 31 30 32 34 |6,findta|ble 1024|
|000004c0| 2c 66 69 6e 64 69 25 28 | 35 29 2c 67 72 6f 75 70 |,findi%(|5),group|
|000004d0| 25 28 35 29 2c 72 65 6c | 6f 66 66 25 28 31 29 2c |%(5),rel|off%(1),|
|000004e0| 61 62 73 6f 66 66 25 28 | 31 29 2c 73 69 7a 65 25 |absoff%(|1),size%|
|000004f0| 28 31 29 2c 73 69 7a 65 | 32 25 28 31 29 2c 65 64 |(1),size|2%(1),ed|
|00000500| 69 74 73 25 28 32 29 2c | 63 6f 70 79 73 25 28 32 |its%(2),|copys%(2|
|00000510| 29 2c 68 65 61 70 25 28 | 38 29 2c 68 65 61 70 73 |),heap%(|8),heaps|
|00000520| 69 7a 65 25 28 38 29 2c | 77 69 6e 73 20 38 2a 38 |ize%(8),|wins 8*8|
|00000530| 2c 77 69 6e 62 6c 6b 20 | 32 35 36 2c 6d 6f 64 5f |,winblk |256,mod_|
|00000540| 6c 69 73 74 20 6d 6f 64 | 5f 6d 61 78 25 2a 33 32 |list mod|_max%*32|
|00000550| 2c 6d 6f 64 5f 6d 65 6e | 75 20 32 38 2b 6d 6f 64 |,mod_men|u 28+mod|
|00000560| 5f 6d 61 78 25 2a 32 34 | 2c 73 70 72 25 20 73 70 |_max%*24|,spr% sp|
|00000570| 72 5f 73 69 7a 65 25 0d | 02 26 04 0d 02 30 14 73 |r_size%.|.&...0.s|
|00000580| 70 72 25 21 30 3d 73 70 | 72 5f 73 69 7a 65 25 0d |pr%!0=sp|r_size%.|
|00000590| 02 3a 22 3a 73 70 72 25 | 21 34 3d 30 3a 73 70 72 |.:":spr%|!4=0:spr|
|000005a0| 25 21 38 3d 31 36 3a 73 | 70 72 25 21 31 32 3d 31 |%!8=16:s|pr%!12=1|
|000005b0| 36 0d 02 44 38 c8 99 20 | 22 4f 53 5f 53 70 72 69 |6..D8.. |"OS_Spri|
|000005c0| 74 65 4f 70 22 2c 32 35 | 36 2b 31 30 2c 73 70 72 |teOp",25|6+10,spr|
|000005d0| 25 2c 22 3c 4d 6f 6e 69 | 74 6f 72 24 44 69 72 3e |%,"<Moni|tor$Dir>|
|000005e0| 2e 53 70 72 69 74 65 73 | 22 0d 02 4e 2b c8 99 20 |.Sprites|"..N+.. |
|000005f0| 22 4f 53 5f 53 70 72 69 | 74 65 4f 70 22 2c 32 35 |"OS_Spri|teOp",25|
|00000600| 36 2b 36 32 20 b8 20 2c | 2c 2c 61 72 65 61 5f 73 |6+62 . ,|,,area_s|
|00000610| 69 7a 65 25 0d 02 58 25 | de 20 76 64 75 73 61 76 |ize%..X%|. vdusav|
|00000620| 65 20 61 72 65 61 5f 73 | 69 7a 65 25 2c 70 61 6c |e area_s|ize%,pal|
|00000630| 65 74 74 65 20 31 36 2a | 38 0d 02 62 0d f2 69 6e |ette 16*|8..b..in|
|00000640| 69 74 68 65 61 70 0d 02 | 6c 04 0d 02 76 15 70 72 |itheap..|l...v.pr|
|00000650| 6f 67 73 69 7a 65 25 3d | 31 30 32 34 2a 32 30 0d |ogsize%=|1024*20.|
|00000660| 02 80 20 de 20 70 72 6f | 67 25 20 70 72 6f 67 73 |.. . pro|g% progs|
|00000670| 69 7a 65 25 2c 73 74 61 | 63 6b 20 31 30 32 34 0d |ize%,sta|ck 1024.|
|00000680| 02 8a 04 0d 02 94 28 72 | 65 67 75 70 25 3d 30 3a |......(r|egup%=0:|
|00000690| 72 65 67 64 6e 25 3d 30 | 3a 62 6c 61 6e 6b 25 3d |regdn%=0|:blank%=|
|000006a0| 30 3a 66 6f 75 6e 64 6e | 25 3d 30 0d 02 9e 2f 64 |0:foundn|%=0.../d|
|000006b0| 65 66 63 25 3d 33 32 3a | 69 6e 73 65 72 74 25 3d |efc%=32:|insert%=|
|000006c0| 31 3a 63 6f 64 65 69 6e | 73 65 72 74 25 3d 31 3a |1:codein|sert%=1:|
|000006d0| 63 6c 65 61 72 63 72 25 | 3d 31 0d 02 a8 13 64 65 |clearcr%|=1....de|
|000006e0| 66 64 25 3d 34 20 84 20 | 32 20 84 20 31 0d 02 b2 |fd%=4 . |2 . 1...|
|000006f0| 1e 77 6f 72 64 66 25 3d | 30 3a 6f 66 66 73 66 25 |.wordf%=|0:offsf%|
|00000700| 3d 31 3a 63 61 70 73 66 | 25 3d 31 0d 02 bc 18 74 |=1:capsf|%=1....t|
|00000710| 61 62 70 74 72 25 3d 30 | 3a 66 69 6e 64 70 74 72 |abptr%=0|:findptr|
|00000720| 25 3d 30 0d 02 c6 0b 66 | 69 6c 65 25 3d a3 0d 02 |%=0....f|ile%=...|
|00000730| d0 22 65 64 69 74 77 69 | 6e 25 3d 2d 31 3a 65 64 |."editwi|n%=-1:ed|
|00000740| 69 74 79 25 3d 31 3a 65 | 64 69 74 65 64 25 3d 30 |ity%=1:e|dited%=0|
|00000750| 0d 02 da 17 70 63 6d 61 | 73 6b 25 3d 25 31 31 31 |....pcma|sk%=%111|
|00000760| 31 31 31 3c 3c 32 36 0d | 02 e4 19 6d 65 6d 63 25 |111<<26.|...memc%|
|00000770| 3d ac 20 28 25 31 31 31 | 31 31 31 3c 3c 32 36 29 |=. (%111|111<<26)|
|00000780| 0d 02 ee 11 73 61 76 65 | 43 24 3d 22 43 6f 64 65 |....save|C$="Code|
|00000790| 22 0d 02 f8 13 73 61 76 | 65 54 24 3d 22 53 6f 75 |"....sav|eT$="Sou|
|000007a0| 72 63 65 22 0d 03 02 0c | 66 69 6c 65 24 3d 22 22 |rce"....|file$=""|
|000007b0| 0d 03 0c 11 67 72 61 62 | 5f 6d 6f 64 65 25 3d 2d |....grab|_mode%=-|
|000007c0| 31 0d 03 16 20 e3 20 6c | 25 3d 30 20 b8 20 36 33 |1... . l|%=0 . 63|
|000007d0| 20 88 20 38 3a 77 69 6e | 73 21 6c 25 3d 2d 31 3a | . 8:win|s!l%=-1:|
|000007e0| ed 0d 03 20 04 0d 03 2a | 1f 24 62 6c 6b 3d 22 54 |... ...*|.$blk="T|
|000007f0| 41 53 4b 22 3a 24 74 61 | 73 6b 3d 22 4d 6f 6e 69 |ASK":$ta|sk="Moni|
|00000800| 74 6f 72 22 0d 03 34 31 | c8 99 20 22 57 69 6d 70 |tor"..41|.. "Wimp|
|00000810| 5f 49 6e 69 74 69 61 6c | 69 73 65 22 2c 32 30 30 |_Initial|ise",200|
|00000820| 2c 62 6c 6b 21 30 2c 24 | 74 61 73 6b 20 b8 20 2c |,blk!0,$|task . ,|
|00000830| 74 61 73 6b 25 0d 03 3e | 6a ee 20 85 20 c8 99 20 |task%..>|j. . .. |
|00000840| 22 57 69 6d 70 5f 43 6c | 6f 73 65 54 65 6d 70 6c |"Wimp_Cl|oseTempl|
|00000850| 61 74 65 22 3a c8 99 20 | 22 48 6f 75 72 67 6c 61 |ate":.. |"Hourgla|
|00000860| 73 73 5f 53 6d 61 73 68 | 22 3a e7 20 c0 f6 24 2c |ss_Smash|":. ..$,|
|00000870| 38 29 3d 22 4d 6f 6e 69 | 74 6f 72 3a 22 20 8c 20 |8)="Moni|tor:" . |
|00000880| f2 65 72 72 28 c1 f6 24 | 2c 39 29 2c 32 2c 9f 29 |.err(..$|,9),2,.)|
|00000890| 20 8b 20 f2 65 72 72 28 | f6 24 2c 32 2c 9f 29 0d | . .err(|.$,2,.).|
|000008a0| 03 48 15 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |.H... "H|ourglass|
|000008b0| 5f 4f 6e 22 0d 03 52 65 | 62 6c 6b 21 30 3d 2d 31 |_On"..Re|blk!0=-1|
|000008c0| 3a 62 6c 6b 21 34 3d 30 | 3a 62 6c 6b 21 38 3d 30 |:blk!4=0|:blk!8=0|
|000008d0| 3a 62 6c 6b 21 31 32 3d | 36 34 3a 62 6c 6b 21 31 |:blk!12=|64:blk!1|
|000008e0| 36 3d 36 38 3a 62 6c 6b | 21 32 30 3d 28 37 3c 3c |6=68:blk|!20=(7<<|
|000008f0| 32 38 29 2b 28 33 3c 3c | 31 32 29 2b 28 31 3c 3c |28)+(3<<|12)+(1<<|
|00000900| 34 29 2b 31 30 3a 24 28 | 62 6c 6b 2b 32 34 29 3d |4)+10:$(|blk+24)=|
|00000910| 22 21 22 2b 24 74 61 73 | 6b 0d 03 5c 28 c8 99 20 |"!"+$tas|k..\(.. |
|00000920| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 49 63 6f 6e |"Wimp_Cr|eateIcon|
|00000930| 22 2c 2c 62 6c 6b 20 b8 | 20 69 63 6f 6e 62 61 72 |",,blk .| iconbar|
|00000940| 25 0d 03 66 04 0d 03 70 | 38 73 74 72 69 6e 67 25 |%..f...p|8string%|
|00000950| 3d 73 74 72 69 6e 67 3a | 6d 65 6e 75 25 3d 6d 65 |=string:|menu%=me|
|00000960| 6e 75 3a 69 6e 65 72 72 | 25 3d a3 3a 66 62 75 66 |nu:inerr|%=.:fbuf|
|00000970| 25 3d 2d 31 3a 67 62 75 | 66 25 3d 2d 31 0d 03 7a |%=-1:gbu|f%=-1..z|
|00000980| 14 66 6c 64 31 25 3d 38 | 3a 66 6c 64 32 25 3d 33 |.fld1%=8|:fld2%=3|
|00000990| 37 0d 03 84 04 0d 03 8e | 27 e7 20 6c 6f 61 64 63 |7.......|'. loadc|
|000009a0| 6f 64 65 25 20 8c 20 f2 | 6c 6f 61 64 63 6f 64 65 |ode% . .|loadcode|
|000009b0| 20 8b 20 f2 61 73 73 65 | 6d 62 6c 65 0d 03 98 0e | . .asse|mble....|
|000009c0| f2 69 6e 69 74 63 6f 64 | 65 73 0d 03 a2 0e f2 73 |.initcod|es.....s|
|000009d0| 6d 61 6c 6c 5f 61 73 73 | 0d 03 ac 17 f2 67 72 61 |mall_ass|.....gra|
|000009e0| 62 62 6c 6f 63 6b 28 66 | 62 75 66 25 2c 30 29 0d |bblock(f|buf%,0).|
|000009f0| 03 b6 04 0d 03 c0 40 61 | 62 73 6f 66 66 25 28 30 |......@a|bsoff%(0|
|00000a00| 29 3d 26 38 30 38 30 3a | 72 65 6c 6f 66 66 25 28 |)=&8080:|reloff%(|
|00000a10| 30 29 3d 26 38 30 38 30 | 3a 73 69 7a 65 25 28 30 |0)=&8080|:size%(0|
|00000a20| 29 3d 26 31 38 3a 73 69 | 7a 65 32 25 28 30 29 3d |)=&18:si|ze2%(0)=|
|00000a30| 26 31 38 0d 03 ca 35 61 | 62 73 6f 66 66 25 28 31 |&18...5a|bsoff%(1|
|00000a40| 29 3d 2d 31 3a 72 65 6c | 6f 66 66 25 28 31 29 3d |)=-1:rel|off%(1)=|
|00000a50| 30 3a 73 69 7a 65 25 28 | 31 29 3d 30 3a 73 69 7a |0:size%(|1)=0:siz|
|00000a60| 65 32 25 28 31 29 3d 30 | 0d 03 d4 0a 69 6e 74 25 |e2%(1)=0|....int%|
|00000a70| 3d 30 0d 03 de 11 73 6f | 70 74 25 3d 73 74 72 69 |=0....so|pt%=stri|
|00000a80| 6e 67 25 0d 03 e8 12 f2 | 77 73 28 22 53 6e 6f 2c |ng%.....|ws("Sno,|
|00000a90| 79 65 73 22 29 0d 03 f2 | 12 61 6c 6c 6f 77 25 3d |yes")...|.allow%=|
|00000aa0| 73 74 72 69 6e 67 25 0d | 03 fc 13 f2 77 73 28 22 |string%.|....ws("|
|00000ab0| 41 30 2d 39 41 2d 46 26 | 22 29 0d 04 06 15 65 64 |A0-9A-F&|")....ed|
|00000ac0| 69 74 73 25 28 31 29 3d | 73 74 72 69 6e 67 25 0d |its%(1)=|string%.|
|00000ad0| 04 10 14 f2 77 73 28 c4 | 66 6c 64 31 25 2c 22 20 |....ws(.|fld1%," |
|00000ae0| 22 29 29 0d 04 1a 15 63 | 6f 70 79 73 25 28 31 29 |"))....c|opys%(1)|
|00000af0| 3d 73 74 72 69 6e 67 25 | 0d 04 24 14 f2 77 73 28 |=string%|..$..ws(|
|00000b00| c4 66 6c 64 31 25 2c 22 | 20 22 29 29 0d 04 2e 15 |.fld1%,"| "))....|
|00000b10| 65 64 69 74 73 25 28 32 | 29 3d 73 74 72 69 6e 67 |edits%(2|)=string|
|00000b20| 25 0d 04 38 14 f2 77 73 | 28 c4 66 6c 64 32 25 2c |%..8..ws|(.fld2%,|
|00000b30| 22 20 22 29 29 0d 04 42 | 15 63 6f 70 79 73 25 28 |" "))..B|.copys%(|
|00000b40| 32 29 3d 73 74 72 69 6e | 67 25 0d 04 4c 14 f2 77 |2)=strin|g%..L..w|
|00000b50| 73 28 c4 66 6c 64 32 25 | 2c 22 20 22 29 29 0d 04 |s(.fld2%|," "))..|
|00000b60| 56 04 0d 04 60 35 c8 99 | 20 22 57 69 6d 70 5f 4f |V...`5..| "Wimp_O|
|00000b70| 70 65 6e 54 65 6d 70 6c | 61 74 65 22 2c 2c 22 3c |penTempl|ate",,"<|
|00000b80| 4d 6f 6e 69 74 6f 72 24 | 44 69 72 3e 2e 54 65 6d |Monitor$|Dir>.Tem|
|00000b90| 70 6c 61 74 65 73 22 0d | 04 6a 22 72 65 6c 6f 63 |plates".|.j"reloc|
|00000ba0| 25 3d a4 6c 6f 61 64 77 | 69 6e 28 22 65 6e 76 32 |%=.loadw|in("env2|
|00000bb0| 22 2c 73 70 72 25 2c 31 | 29 0d 04 74 21 69 6e 66 |",spr%,1|)..t!inf|
|00000bc0| 6f 25 3d a4 6c 6f 61 64 | 77 69 6e 28 22 69 6e 66 |o%=.load|win("inf|
|00000bd0| 6f 62 6f 78 22 2c 31 2c | 31 29 0d 04 7e 24 74 65 |obox",1,|1)..~$te|
|00000be0| 78 74 25 3d a4 6c 6f 61 | 64 77 69 6e 28 22 74 65 |xt%=.loa|dwin("te|
|00000bf0| 78 74 62 6f 78 22 2c 73 | 70 72 25 2c 31 29 0d 04 |xtbox",s|pr%,1)..|
|00000c00| 88 21 73 61 76 65 25 3d | a4 6c 6f 61 64 77 69 6e |.!save%=|.loadwin|
|00000c10| 28 22 73 61 76 65 62 6f | 78 22 2c 31 2c 31 29 0d |("savebo|x",1,1).|
|00000c20| 04 92 28 63 6f 70 74 25 | 3d a4 6c 6f 61 64 77 69 |..(copt%|=.loadwi|
|00000c30| 6e 28 22 63 6f 64 65 6f | 70 74 69 6f 6e 73 22 2c |n("codeo|ptions",|
|00000c40| 73 70 72 25 2c 31 29 0d | 04 9c 28 64 6f 70 74 25 |spr%,1).|..(dopt%|
|00000c50| 3d a4 6c 6f 61 64 77 69 | 6e 28 22 64 61 74 61 6f |=.loadwi|n("datao|
|00000c60| 70 74 69 6f 6e 73 22 2c | 73 70 72 25 2c 31 29 0d |ptions",|spr%,1).|
|00000c70| 04 a6 28 66 6f 70 74 25 | 3d a4 6c 6f 61 64 77 69 |..(fopt%|=.loadwi|
|00000c80| 6e 28 22 66 69 6e 64 6f | 70 74 69 6f 6e 73 22 2c |n("findo|ptions",|
|00000c90| 73 70 72 25 2c 31 29 0d | 04 b0 51 65 78 65 63 25 |spr%,1).|..Qexec%|
|00000ca0| 3d a4 6c 6f 61 64 77 69 | 6e 28 22 65 78 65 63 22 |=.loadwi|n("exec"|
|00000cb0| 2c 73 70 72 25 2c 31 29 | 3a f2 73 65 74 69 28 65 |,spr%,1)|:.seti(e|
|00000cc0| 78 65 63 25 2c 32 30 2c | 31 3c 3c 32 32 2c 31 29 |xec%,20,|1<<22,1)|
|00000cd0| 3a f2 73 65 74 69 28 65 | 78 65 63 25 2c 32 31 2c |:.seti(e|xec%,21,|
|00000ce0| 31 3c 3c 32 32 2c 31 29 | 0d 04 ba 25 66 69 6c 65 |1<<22,1)|...%file|
|00000cf0| 69 6e 66 25 3d a4 6c 6f | 61 64 77 69 6e 28 22 66 |inf%=.lo|adwin("f|
|00000d00| 69 6c 65 69 6e 66 6f 22 | 2c 31 2c 31 29 0d 04 c4 |ileinfo"|,1,1)...|
|00000d10| 1a 41 25 3d a4 6c 6f 61 | 64 77 69 6e 28 22 65 6e |.A%=.loa|dwin("en|
|00000d20| 76 22 2c 31 2c 30 29 0d | 04 ce 16 e3 20 69 63 6f |v",1,0).|.... ico|
|00000d30| 6e 25 3d 31 20 b8 20 62 | 6c 6b 21 38 34 0d 04 d8 |n%=1 . b|lk!84...|
|00000d40| 1c 70 74 72 25 3d 62 6c | 6b 2b 38 38 2b 33 32 2a |.ptr%=bl|k+88+32*|
|00000d50| 28 69 63 6f 6e 25 2d 31 | 29 0d 04 e2 82 e7 20 28 |(icon%-1|)..... (|
|00000d60| 70 74 72 25 21 31 36 20 | 80 20 26 46 3c 3c 31 32 |ptr%!16 |. &F<<12|
|00000d70| 29 3d 28 26 45 3c 3c 31 | 32 29 20 8c 20 70 74 72 |)=(&E<<1|2) . ptr|
|00000d80| 25 21 31 36 3d 70 74 72 | 25 21 31 36 20 84 20 31 |%!16=ptr|%!16 . 1|
|00000d90| 3c 3c 31 32 20 84 20 31 | 3c 3c 38 3a 70 74 72 25 |<<12 . 1|<<8:ptr%|
|00000da0| 21 32 30 3d 73 74 72 69 | 6e 67 25 3a 24 73 74 72 |!20=stri|ng%:$str|
|00000db0| 69 6e 67 25 3d 22 22 3a | 73 74 72 69 6e 67 25 2b |ing%="":|string%+|
|00000dc0| 3d 39 3a 70 74 72 25 21 | 32 34 3d 61 6c 6c 6f 77 |=9:ptr%!|24=allow|
|00000dd0| 25 3a 70 74 72 25 21 32 | 38 3d 39 0d 04 ec 05 ed |%:ptr%!2|8=9.....|
|00000de0| 0d 04 f6 26 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |...&.. "|Wimp_Cre|
|00000df0| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6b 20 |ateWindo|w",,blk |
|00000e00| b8 20 65 6e 76 25 0d 05 | 00 04 0d 05 0a 10 74 65 |. env%..|......te|
|00000e10| 6d 70 5f 62 6c 6b 3d 62 | 6c 6b 0d 05 14 0e 62 6c |mp_blk=b|lk....bl|
|00000e20| 6b 3d 77 69 6e 62 6c 6b | 0d 05 1e 1e 41 25 3d a4 |k=winblk|....A%=.|
|00000e30| 6c 6f 61 64 77 69 6e 28 | 22 6f 75 74 77 69 6e 22 |loadwin(|"outwin"|
|00000e40| 2c 2d 31 2c 30 29 0d 05 | 28 14 24 28 62 6c 6b 2b |,-1,0)..|(.$(blk+|
|00000e50| 37 32 29 3d 22 46 69 6e | 64 22 0d 05 32 17 62 6c |72)="Fin|d"..2.bl|
|00000e60| 6b 21 30 3d 32 30 30 3a | 62 6c 6b 21 38 3d 31 45 |k!0=200:|blk!8=1E|
|00000e70| 39 0d 05 3c 1e 62 6c 6b | 21 34 3d 34 30 30 3a 62 |9..<.blk|!4=400:b|
|00000e80| 6c 6b 21 31 32 3d 62 6c | 6b 21 34 2b 33 30 30 0d |lk!12=bl|k!4+300.|
|00000e90| 05 46 0d 62 6c 6b 21 35 | 32 3d 34 34 0d 05 50 0d |.F.blk!5|2=44..P.|
|00000ea0| 62 6c 6b 21 32 30 3d 34 | 34 0d 05 5a 1b 62 6c 6b |blk!20=4|4..Z.blk|
|00000eb0| 21 32 38 3d 62 6c 6b 21 | 32 38 20 80 20 ac 28 33 |!28=blk!|28 . .(3|
|00000ec0| 3c 3c 38 29 0d 05 64 0c | 62 6c 6b 21 38 34 3d 31 |<<8)..d.|blk!84=1|
|00000ed0| 0d 05 6e 0c 62 6c 6b 21 | 38 38 3d 30 0d 05 78 0c |..n.blk!|88=0..x.|
|00000ee0| 62 6c 6b 21 39 32 3d 38 | 0d 05 82 0f 62 6c 6b 21 |blk!92=8|....blk!|
|00000ef0| 39 36 3d 31 32 38 30 0d | 05 8c 0e 62 6c 6b 21 31 |96=1280.|...blk!1|
|00000f00| 30 30 3d 34 34 0d 05 96 | 26 62 6c 6b 21 31 30 34 |00=44...|&blk!104|
|00000f10| 3d a4 69 63 6f 6e 28 31 | 2c 37 2c 30 2c 31 2c 31 |=.icon(1|,7,0,1,1|
|00000f20| 2c 31 2c 30 2c 30 2c 30 | 2c 31 29 0d 05 a0 24 62 |,1,0,0,0|,1)...$b|
|00000f30| 6c 6b 21 31 30 38 3d 73 | 74 72 69 6e 67 25 3a f2 |lk!108=s|tring%:.|
|00000f40| 77 73 28 22 30 20 66 6f | 75 6e 64 20 20 22 29 0d |ws("0 fo|und  ").|
|00000f50| 05 aa 0e 62 6c 6b 21 31 | 31 32 3d 2d 31 0d 05 b4 |...blk!1|12=-1...|
|00000f60| 0e 62 6c 6b 21 31 31 36 | 3d 31 30 0d 05 be 27 c8 |.blk!116|=10...'.|
|00000f70| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 57 69 |. "Wimp_|CreateWi|
|00000f80| 6e 64 6f 77 22 2c 2c 62 | 6c 6b 20 b8 20 66 69 6e |ndow",,b|lk . fin|
|00000f90| 64 25 0d 05 c8 0c f2 66 | 69 6e 64 65 78 74 0d 05 |d%.....f|indext..|
|00000fa0| d2 04 0d 05 dc 1e 41 25 | 3d a4 6c 6f 61 64 77 69 |......A%|=.loadwi|
|00000fb0| 6e 28 22 6f 75 74 77 69 | 6e 22 2c 2d 31 2c 30 29 |n("outwi|n",-1,0)|
|00000fc0| 0d 05 e6 0d 62 6c 6b 21 | 30 3d 31 30 30 0d 05 f0 |....blk!|0=100...|
|00000fd0| 0d 62 6c 6b 21 34 3d 32 | 30 30 0d 05 fa 29 e7 20 |.blk!4=2|00...). |
|00000fe0| 6c 6f 61 64 77 69 6e 73 | 25 20 8c 20 c8 99 20 22 |loadwins|% . .. "|
|00000ff0| 57 69 6d 70 5f 43 6c 6f | 73 65 54 65 6d 70 6c 61 |Wimp_Clo|seTempla|
|00001000| 74 65 22 0d 06 04 04 0d | 06 0e 0e 77 69 6e 62 75 |te".....|...winbu|
|00001010| 66 25 3d 2d 31 0d 06 18 | 1e f2 67 72 61 62 62 6c |f%=-1...|..grabbl|
|00001020| 6f 63 6b 28 77 69 6e 62 | 75 66 25 2c 38 2a 31 30 |ock(winb|uf%,8*10|
|00001030| 32 34 29 0d 06 22 16 62 | 6c 6b 3d 68 65 61 70 25 |24)..".b|lk=heap%|
|00001040| 28 77 69 6e 62 75 66 25 | 29 0d 06 2c 22 e7 20 ac |(winbuf%|)..,". .|
|00001050| 6c 6f 61 64 77 69 6e 73 | 25 20 8c 20 f2 63 72 65 |loadwins|% . .cre|
|00001060| 61 74 65 5f 77 69 6e 64 | 6f 77 73 0d 06 36 1f e7 |ate_wind|ows..6..|
|00001070| 20 6c 6f 61 64 77 69 6e | 73 25 20 8c 20 f2 6c 6f | loadwin|s% . .lo|
|00001080| 61 64 5f 77 69 6e 64 6f | 77 73 0d 06 40 17 f2 6c |ad_windo|ws..@..l|
|00001090| 6f 73 65 62 6c 6f 63 6b | 28 77 69 6e 62 75 66 25 |oseblock|(winbuf%|
|000010a0| 29 0d 06 4a 10 62 6c 6b | 3d 74 65 6d 70 5f 62 6c |)..J.blk|=temp_bl|
|000010b0| 6b 0d 06 54 04 0d 06 5e | 35 f2 63 72 6d 65 6e 75 |k..T...^|5.crmenu|
|000010c0| 28 31 36 2c 22 53 61 76 | 65 2f 72 2c 73 2c 73 61 |(16,"Sav|e/r,s,sa|
|000010d0| 76 65 25 2c 43 6f 64 65 | 2f 72 2c 73 2c 73 61 76 |ve%,Code|/r,s,sav|
|000010e0| 65 25 2c 54 65 78 74 2f | 22 29 0d 06 68 42 f2 63 |e%,Text/|")..hB.c|
|000010f0| 72 6d 65 6e 75 28 31 35 | 2c 22 46 69 6c 65 2f 73 |rmenu(15|,"File/s|
|00001100| 2c 66 69 6c 65 69 6e 66 | 25 2c 49 6e 66 6f 2f 72 |,fileinf|%,Info/r|
|00001110| 2c 73 2c 73 61 76 65 25 | 2c 6b 2c 46 33 2c 53 61 |,s,save%|,k,F3,Sa|
|00001120| 76 65 2f 52 65 6d 6f 76 | 65 2f 22 29 0d 06 72 27 |ve/Remov|e/")..r'|
|00001130| f2 63 72 6d 65 6e 75 28 | 31 34 2c 22 47 6f 74 6f |.crmenu(|14,"Goto|
|00001140| 2f 77 2c 38 2c 76 2c 41 | 30 2d 39 41 2d 46 26 2c |/w,8,v,A|0-9A-F&,|
|00001150| 2f 22 29 0d 06 7c 69 f2 | 63 72 6d 65 6e 75 28 31 |/")..|i.|crmenu(1|
|00001160| 32 2c 22 43 6f 64 65 2f | 73 2c 65 6e 76 25 2c 6b |2,"Code/|s,env%,k|
|00001170| 2c 5e 45 2c 45 6e 76 69 | 72 6f 6e 6d 65 6e 74 2f |,^E,Envi|ronment/|
|00001180| 72 2c 73 2c 72 65 6c 6f | 63 25 2c 52 65 6c 6f 63 |r,s,relo|c%,Reloc|
|00001190| 61 74 65 2f 73 2c 31 34 | 2c 47 6f 74 6f 2f 73 2c |ate/s,14|,Goto/s,|
|000011a0| 31 36 2c 53 61 76 65 2f | 72 2c 73 2c 63 6f 70 74 |16,Save/|r,s,copt|
|000011b0| 25 2c 4f 70 74 69 6f 6e | 73 2f 22 29 0d 06 86 65 |%,Option|s/")...e|
|000011c0| f2 63 72 6d 65 6e 75 28 | 36 2c 22 44 61 74 61 2f |.crmenu(|6,"Data/|
|000011d0| 73 2c 74 65 78 74 25 2c | 6b 2c 46 34 2c 53 74 72 |s,text%,|k,F4,Str|
|000011e0| 69 6e 67 20 73 65 61 72 | 63 68 2f 73 2c 65 6e 76 |ing sear|ch/s,env|
|000011f0| 25 2c 6b 2c 5e 45 2c 45 | 6e 76 69 72 6f 6e 6d 65 |%,k,^E,E|nvironme|
|00001200| 6e 74 2f 73 2c 31 34 2c | 47 6f 74 6f 2f 72 2c 73 |nt/s,14,|Goto/r,s|
|00001210| 2c 64 6f 70 74 25 2c 4f | 70 74 69 6f 6e 73 2f 22 |,dopt%,O|ptions/"|
|00001220| 29 0d 06 90 32 f2 63 72 | 6d 65 6e 75 28 33 2c 22 |)...2.cr|menu(3,"|
|00001230| 4d 6f 64 75 6c 65 73 2f | 73 2c 6d 6f 64 5f 6d 65 |Modules/|s,mod_me|
|00001240| 6e 75 2c 53 65 6c 65 63 | 74 2f 55 70 64 61 74 65 |nu,Selec|t/Update|
|00001250| 2f 22 29 0d 06 9a 9b f2 | 63 72 6d 65 6e 75 28 32 |/").....|crmenu(2|
|00001260| 2c 22 46 69 6e 64 2f 73 | 2c 67 72 6f 75 70 25 28 |,"Find/s|,group%(|
|00001270| 31 29 2c 44 61 74 61 20 | 6f 70 65 72 61 74 69 6f |1),Data |operatio|
|00001280| 6e 2f 73 2c 67 72 6f 75 | 70 25 28 32 29 2c 44 61 |n/s,grou|p%(2),Da|
|00001290| 74 61 20 74 72 61 6e 73 | 66 65 72 2f 73 2c 67 72 |ta trans|fer/s,gr|
|000012a0| 6f 75 70 25 28 33 29 2c | 4d 75 6c 74 69 70 6c 65 |oup%(3),|Multiple|
|000012b0| 20 73 74 6f 72 65 2f 73 | 2c 67 72 6f 75 70 25 28 | store/s|,group%(|
|000012c0| 34 29 2c 53 57 49 2f 73 | 2c 67 72 6f 75 70 25 28 |4),SWI/s|,group%(|
|000012d0| 35 29 2c 42 72 61 6e 63 | 68 2f 72 2c 73 2c 66 6f |5),Branc|h/r,s,fo|
|000012e0| 70 74 25 2c 4f 70 74 69 | 6f 6e 73 2f 22 29 0d 06 |pt%,Opti|ons/")..|
|000012f0| a4 63 f2 63 72 6d 65 6e | 75 28 31 2c 22 53 68 6f |.c.crmen|u(1,"Sho|
|00001300| 77 2f 6b 2c 5e 42 2c 42 | 72 65 61 6b 70 6f 69 6e |w/k,^B,B|reakpoin|
|00001310| 74 73 2f 6b 2c 5e 43 2c | 43 6f 64 65 2f 6b 2c 5e |ts/k,^C,|Code/k,^|
|00001320| 44 2c 44 61 74 61 2f 6b | 2c 5e 46 2c 46 69 6e 64 |D,Data/k|,^F,Find|
|00001330| 2f 6b 2c 5e 52 2c 52 65 | 67 69 73 74 65 72 73 2f |/k,^R,Re|gisters/|
|00001340| 6b 2c 5e 58 2c 45 78 65 | 63 75 74 69 6f 6e 2f 22 |k,^X,Exe|cution/"|
|00001350| 29 0d 06 ae 49 f2 63 72 | 6d 65 6e 75 28 30 2c 24 |)...I.cr|menu(0,$|
|00001360| 74 61 73 6b 2b 22 2f 73 | 2c 69 6e 66 6f 25 2c 49 |task+"/s|,info%,I|
|00001370| 6e 66 6f 2f 73 2c 31 35 | 2c 46 69 6c 65 2f 73 2c |nfo/s,15|,File/s,|
|00001380| 33 2c 4d 6f 64 75 6c 65 | 73 2f 73 2c 31 2c 53 68 |3,Module|s/s,1,Sh|
|00001390| 6f 77 2f 51 75 69 74 2f | 22 29 0d 06 b8 13 f2 75 |ow/Quit/|").....u|
|000013a0| 70 64 61 74 65 5f 6d 6f | 64 6c 69 73 74 0d 06 c2 |pdate_mo|dlist...|
|000013b0| 04 0d 06 cc 16 c8 99 20 | 22 48 6f 75 72 67 6c 61 |....... |"Hourgla|
|000013c0| 73 73 5f 4f 66 66 22 0d | 06 d6 05 e1 0d 06 e0 04 |ss_Off".|........|
|000013d0| 0d 06 ea 1e dd a4 6c 6f | 61 64 77 69 6e 28 24 70 |......lo|adwin($p|
|000013e0| 6f 6c 6c 2c 61 72 65 61 | 25 2c 63 72 25 29 0d 06 |oll,area|%,cr%)..|
|000013f0| f4 50 c8 99 20 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |.P.. "Wi|mp_LoadT|
|00001400| 65 6d 70 6c 61 74 65 22 | 2c 2c 62 6c 6b 2c 73 74 |emplate"|,,blk,st|
|00001410| 72 69 6e 67 25 2c 73 74 | 72 69 6e 67 2b 69 73 69 |ring%,st|ring+isi|
|00001420| 7a 65 25 2c 2d 31 2c 70 | 6f 6c 6c 20 b8 20 2c 2c |ze%,-1,p|oll . ,,|
|00001430| 73 74 72 69 6e 67 25 2c | 2c 2c 2c 6f 6b 25 0d 06 |string%,|,,,ok%..|
|00001440| fe 36 e7 20 6f 6b 25 3d | 30 20 8c 20 f2 65 72 72 |.6. ok%=|0 . .err|
|00001450| 28 22 54 65 6d 70 6c 61 | 74 65 20 22 2b 24 70 6f |("Templa|te "+$po|
|00001460| 6c 6c 2b 22 20 6e 6f 74 | 20 66 6f 75 6e 64 22 2c |ll+" not| found",|
|00001470| 32 2c 30 29 0d 07 08 10 | 62 6c 6b 21 36 34 3d 61 |2,0)....|blk!64=a|
|00001480| 72 65 61 25 0d 07 12 36 | e7 20 63 72 25 20 8c 20 |rea%...6|. cr% . |
|00001490| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 57 |.. "Wimp|_CreateW|
|000014a0| 69 6e 64 6f 77 22 2c 2c | 62 6c 6b 20 b8 20 77 68 |indow",,|blk . wh|
|000014b0| 25 20 8b 20 77 68 25 3d | 2d 31 0d 07 1c 08 3d 77 |% . wh%=|-1....=w|
|000014c0| 68 25 0d 07 26 04 0d 07 | 30 04 0d 07 3a 13 dd a4 |h%..&...|0...:...|
|000014d0| 6e 65 77 77 69 6e 28 74 | 79 70 65 25 29 0d 07 44 |newwin(t|ype%)..D|
|000014e0| 0b 6e 65 77 25 3d 2d 31 | 0d 07 4e 0d f5 20 6e 65 |.new%=-1|..N.. ne|
|000014f0| 77 25 2b 3d 31 0d 07 58 | 1f fd 20 6e 65 77 25 3d |w%+=1..X|.. new%=|
|00001500| 38 20 84 20 77 69 6e 73 | 21 28 6e 65 77 25 2a 38 |8 . wins|!(new%*8|
|00001510| 29 3d 2d 31 0d 07 62 04 | 0d 07 6c 0e e7 20 6e 65 |)=-1..b.|..l.. ne|
|00001520| 77 25 3c 38 20 8c 0d 07 | 76 11 77 69 6e 62 6c 6b |w%<8 ...|v.winblk|
|00001530| 21 34 2b 3d 32 30 30 0d | 07 80 14 e7 20 77 69 6e |!4+=200.|.... win|
|00001540| 62 6c 6b 21 34 3e 38 30 | 30 20 8c 0d 07 8a 10 77 |blk!4>80|0 .....w|
|00001550| 69 6e 62 6c 6b 21 34 3d | 32 30 30 0d 07 94 11 77 |inblk!4=|200....w|
|00001560| 69 6e 62 6c 6b 21 30 2b | 3d 32 35 30 0d 07 9e 21 |inblk!0+|=250...!|
|00001570| e7 20 77 69 6e 62 6c 6b | 21 30 3e 37 35 30 20 8c |. winblk|!0>750 .|
|00001580| 20 77 69 6e 62 6c 6b 21 | 30 3d 31 30 30 0d 07 a8 | winblk!|0=100...|
|00001590| 1a 77 69 6e 62 6c 6b 21 | 38 3d 77 69 6e 62 6c 6b |.winblk!|8=winblk|
|000015a0| 21 30 2b 31 32 38 30 0d | 07 b2 05 cd 0d 07 bc 1a |!0+1280.|........|
|000015b0| 77 69 6e 62 6c 6b 21 31 | 32 3d 77 69 6e 62 6c 6b |winblk!1|2=winblk|
|000015c0| 21 34 2b 33 30 30 0d 07 | c6 04 0d 07 d0 1c 77 69 |!4+300..|......wi|
|000015d0| 6e 62 6c 6b 21 34 30 3d | 30 3a 77 69 6e 62 6c 6b |nblk!40=|0:winblk|
|000015e0| 21 35 32 3d 31 32 0d 07 | da 0e c8 8e 20 74 79 70 |!52=12..|.... typ|
|000015f0| 65 25 20 ca 0d 07 e4 07 | c9 20 30 0d 07 ee 17 24 |e% .....|. 0....$|
|00001600| 28 77 69 6e 62 6c 6b 2b | 37 32 29 3d 22 43 6f 64 |(winblk+|72)="Cod|
|00001610| 65 22 0d 07 f8 25 77 69 | 6e 62 6c 6b 21 34 34 3d |e"...%wi|nblk!44=|
|00001620| 2d 28 73 69 7a 65 25 28 | 69 6e 74 25 29 2b 33 29 |-(size%(|int%)+3)|
|00001630| 20 81 20 34 2a 33 32 0d | 08 02 4a 77 69 6e 62 6c | . 4*32.|..Jwinbl|
|00001640| 6b 21 34 38 3d 28 39 2d | 39 2a 28 28 64 65 66 63 |k!48=(9-|9*((defc|
|00001650| 25 20 80 20 38 29 3c 3e | 30 29 2b 66 6c 64 31 25 |% . 8)<>|0)+fld1%|
|00001660| 2b 66 6c 64 32 25 2d 31 | 30 2a 28 28 64 65 66 63 |+fld2%-1|0*((defc|
|00001670| 25 20 80 20 31 29 3c 3e | 30 29 29 2a 31 36 2b 31 |% . 1)<>|0))*16+1|
|00001680| 36 0d 08 0c 1c 77 69 6e | 73 21 28 6e 65 77 25 2a |6....win|s!(new%*|
|00001690| 38 2b 34 29 3d 64 65 66 | 63 25 3c 3c 32 0d 08 16 |8+4)=def|c%<<2...|
|000016a0| 07 c9 20 31 0d 08 20 27 | 77 69 6e 62 6c 6b 21 34 |.. 1.. '|winblk!4|
|000016b0| 34 3d 2d 28 73 69 7a 65 | 25 28 69 6e 74 25 29 2b |4=-(size|%(int%)+|
|000016c0| 31 35 29 20 81 20 31 36 | 2a 33 32 0d 08 2a 0c 66 |15) . 16|*32..*.f|
|000016d0| 25 3d 64 65 66 64 25 0d | 08 34 5c 77 69 6e 62 6c |%=defd%.|.4\winbl|
|000016e0| 6b 21 34 38 3d 38 2b 28 | 28 38 2d 28 28 66 25 20 |k!48=8+(|(8-((f% |
|000016f0| 80 20 33 29 3c 3e 30 29 | 29 2a 28 66 25 20 80 20 |. 3)<>0)|)*(f% . |
|00001700| 34 29 20 81 20 34 2b 28 | 34 37 2b 28 66 25 20 80 |4) . 4+(|47+(f% .|
|00001710| 20 31 29 29 2a 28 66 25 | 20 80 20 32 29 20 81 20 | 1))*(f%| . 2) . |
|00001720| 32 2b 31 36 2a 28 66 25 | 20 80 20 31 29 29 2a 31 |2+16*(f%| . 1))*1|
|00001730| 36 2b 38 0d 08 3e 17 24 | 28 77 69 6e 62 6c 6b 2b |6+8..>.$|(winblk+|
|00001740| 37 32 29 3d 22 44 61 74 | 61 22 0d 08 48 20 77 69 |72)="Dat|a"..H wi|
|00001750| 6e 73 21 28 6e 65 77 25 | 2a 38 2b 34 29 3d 64 65 |ns!(new%|*8+4)=de|
|00001760| 66 64 25 3c 3c 32 20 84 | 20 31 0d 08 52 05 cb 0d |fd%<<2 .| 1..R...|
|00001770| 08 5c 04 0d 08 66 32 c8 | 99 20 22 57 69 6d 70 5f |.\...f2.|. "Wimp_|
|00001780| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 77 |CreateWi|ndow",,w|
|00001790| 69 6e 62 6c 6b 20 b8 20 | 77 69 6e 73 21 28 6e 65 |inblk . |wins!(ne|
|000017a0| 77 25 2a 38 29 0d 08 70 | 17 62 6c 6b 21 30 3d 77 |w%*8)..p|.blk!0=w|
|000017b0| 69 6e 73 21 28 6e 65 77 | 25 2a 38 29 0d 08 7a 21 |ins!(new|%*8)..z!|
|000017c0| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 57 69 6e 64 |.. "Wimp|_GetWind|
|000017d0| 6f 77 53 74 61 74 65 22 | 2c 2c 62 6c 6b 0d 08 84 |owState"|,,blk...|
|000017e0| 1d c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 |... "Wim|p_OpenWi|
|000017f0| 6e 64 6f 77 22 2c 2c 62 | 6c 6b 0d 08 8e 04 0d 08 |ndow",,b|lk......|
|00001800| 98 05 cc 0d 08 a2 1f f2 | 65 72 72 28 22 4e 6f 20 |........|err("No |
|00001810| 6d 6f 72 65 20 77 69 6e | 64 6f 77 73 22 2c 31 2c |more win|dows",1,|
|00001820| 30 29 0d 08 ac 05 cd 0d | 08 b6 04 0d 08 c0 23 e7 |0)......|......#.|
|00001830| 20 6e 65 77 25 3d 38 20 | 8c 20 3d 2d 31 20 8b 20 | new%=8 |. =-1 . |
|00001840| 3d 77 69 6e 73 21 28 6e | 65 77 25 2a 38 29 0d 08 |=wins!(n|ew%*8)..|
|00001850| ca 04 0d 08 d4 04 0d 08 | de 0d dd f2 72 65 64 72 |........|....redr|
|00001860| 61 77 77 0d 08 e8 10 62 | 6c 6b 21 30 3d 70 6f 6c |aww....b|lk!0=pol|
|00001870| 6c 21 30 0d 08 f2 0c 70 | 74 72 25 3d 32 35 36 0d |l!0....p|tr%=256.|
|00001880| 08 fc 13 f2 70 28 73 69 | 7a 65 25 28 69 6e 74 25 |....p(si|ze%(int%|
|00001890| 29 29 0d 09 06 15 f2 70 | 28 72 65 6c 6f 66 66 25 |)).....p|(reloff%|
|000018a0| 28 69 6e 74 25 29 29 0d | 09 10 15 f2 70 28 61 62 |(int%)).|....p(ab|
|000018b0| 73 6f 66 66 25 28 69 6e | 74 25 29 29 0d 09 1a 31 |soff%(in|t%))...1|
|000018c0| f2 70 28 63 61 70 73 66 | 25 2a 33 32 20 84 20 62 |.p(capsf|%*32 . b|
|000018d0| 6c 61 6e 6b 25 2a 36 34 | 20 84 20 77 6f 72 64 66 |lank%*64| . wordf|
|000018e0| 25 2a 38 20 84 20 6f 66 | 66 73 66 25 29 0d 09 24 |%*8 . of|fsf%)..$|
|000018f0| 0e f2 70 28 65 64 69 74 | 79 25 29 0d 09 2e 10 f2 |..p(edit|y%).....|
|00001900| 70 28 65 64 69 74 77 69 | 6e 25 29 0d 09 38 11 f2 |p(editwi|n%)..8..|
|00001910| 70 28 65 64 69 74 73 25 | 28 31 29 29 0d 09 42 13 |p(edits%|(1))..B.|
|00001920| f2 70 28 a9 24 65 64 69 | 74 73 25 28 31 29 29 0d |.p(.$edi|ts%(1)).|
|00001930| 09 4c 11 f2 70 28 65 64 | 69 74 73 25 28 32 29 29 |.L..p(ed|its%(2))|
|00001940| 0d 09 56 13 f2 70 28 a9 | 24 65 64 69 74 73 25 28 |..V..p(.|$edits%(|
|00001950| 32 29 29 0d 09 60 1e f2 | 70 28 72 65 67 75 70 25 |2))..`..|p(regup%|
|00001960| 2b 72 65 67 64 6e 25 2b | 31 2b 62 6c 61 6e 6b 25 |+regdn%+|1+blank%|
|00001970| 29 0d 09 6a 0e f2 70 28 | 72 65 67 75 70 25 29 0d |)..j..p(|regup%).|
|00001980| 09 74 0f f2 70 28 66 6f | 75 6e 64 6e 25 29 0d 09 |.t..p(fo|undn%)..|
|00001990| 7e 11 f2 70 28 66 6f 75 | 6e 64 6c 69 73 74 29 0d |~..p(fou|ndlist).|
|000019a0| 09 88 0b f2 70 28 62 6c | 6b 29 0d 09 92 0d f2 70 |....p(bl|k).....p|
|000019b0| 28 66 69 6e 64 25 29 0d | 09 9c 0c f2 70 28 77 69 |(find%).|....p(wi|
|000019c0| 6e 73 29 0d 09 a6 0e 54 | 25 3d 62 6c 6b 2b 32 35 |ns)....T|%=blk+25|
|000019d0| 36 0d 09 b0 0f d6 20 72 | 65 64 72 61 77 2c 54 25 |6..... r|edraw,T%|
|000019e0| 0d 09 ba 05 e1 0d 09 c4 | 04 0d 09 ce 0b dd f2 70 |........|.......p|
|000019f0| 28 77 25 29 0d 09 d8 0f | 62 6c 6b 21 70 74 72 25 |(w%)....|blk!ptr%|
|00001a00| 3d 77 25 0d 09 e2 0b 70 | 74 72 25 2b 3d 34 0d 09 |=w%....p|tr%+=4..|
|00001a10| ec 05 e1 0d 09 f6 04 0d | 0a 00 0b dd f2 6f 70 65 |........|.....ope|
|00001a20| 6e 77 0d 0a 0a 1e c8 99 | 20 22 57 69 6d 70 5f 4f |nw......| "Wimp_O|
|00001a30| 70 65 6e 57 69 6e 64 6f | 77 22 2c 2c 70 6f 6c 6c |penWindo|w",,poll|
|00001a40| 0d 0a 14 05 e1 0d 0a 1e | 04 0d 0a 28 0c dd f2 63 |........|...(...c|
|00001a50| 6c 6f 73 65 77 0d 0a 32 | 1f c8 99 20 22 57 69 6d |losew..2|... "Wim|
|00001a60| 70 5f 43 6c 6f 73 65 57 | 69 6e 64 6f 77 22 2c 2c |p_CloseW|indow",,|
|00001a70| 70 6f 6c 6c 0d 0a 3c 13 | e3 20 6c 25 3d 30 20 b8 |poll..<.|. l%=0 .|
|00001a80| 20 36 33 20 88 20 38 0d | 0a 46 3e e7 20 77 69 6e | 63 . 8.|.F>. win|
|00001a90| 73 21 6c 25 3d 70 6f 6c | 6c 21 30 20 8c 20 77 69 |s!l%=pol|l!0 . wi|
|00001aa0| 6e 73 21 6c 25 3d 2d 31 | 3a c8 99 20 22 57 69 6d |ns!l%=-1|:.. "Wim|
|00001ab0| 70 5f 44 65 6c 65 74 65 | 57 69 6e 64 6f 77 22 2c |p_Delete|Window",|
|00001ac0| 2c 70 6f 6c 6c 0d 0a 50 | 05 ed 0d 0a 5a 05 e1 0d |,poll..P|....Z...|
|00001ad0| 0a 64 04 0d 0a 6e 0b dd | f2 65 78 69 74 77 0d 0a |.d...n..|.exitw..|
|00001ae0| 78 05 e1 0d 0a 82 04 0d | 0a 8c 0c dd f2 65 6e 74 |x.......|.....ent|
|00001af0| 65 72 77 0d 0a 96 05 e1 | 0d 0a a0 04 0d 0a aa 04 |erw.....|........|
|00001b00| 0d 0a b4 0b dd f2 63 6c | 69 63 6b 0d 0a be 04 0d |......cl|ick.....|
|00001b10| 0a c8 0a c8 8e 20 b9 20 | ca 0d 0a d2 04 0d 0a dc |..... . |........|
|00001b20| 18 c9 20 28 70 6f 6c 6c | 21 38 20 80 20 26 35 30 |.. (poll|!8 . &50|
|00001b30| 30 29 3c 3e 30 0d 0a e6 | 04 0d 0a f0 10 c8 8e 20 |0)<>0...|....... |
|00001b40| 70 6f 6c 6c 21 31 32 20 | ca 0d 0a fa 16 c9 20 a4 |poll!12 |...... .|
|00001b50| 69 73 63 6f 64 65 28 70 | 6f 6c 6c 21 31 32 29 0d |iscode(p|oll!12).|
|00001b60| 0b 04 11 62 6c 6b 21 30 | 3d 70 6f 6c 6c 21 31 32 |...blk!0|=poll!12|
|00001b70| 0d 0b 0e 21 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |...!.. "|Wimp_Get|
|00001b80| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 2c 62 6c |WindowSt|ate",,bl|
|00001b90| 6b 0d 0b 18 44 f2 63 6c | 69 63 6b 63 6f 64 65 28 |k...D.cl|ickcode(|
|00001ba0| 70 6f 6c 6c 21 30 2d 28 | 62 6c 6b 21 34 2d 62 6c |poll!0-(|blk!4-bl|
|00001bb0| 6b 21 32 30 29 2c 70 6f | 6c 6c 21 34 2d 28 62 6c |k!20),po|ll!4-(bl|
|00001bc0| 6b 21 31 36 2d 62 6c 6b | 21 32 34 29 2c 70 6f 6c |k!16-blk|!24),pol|
|00001bd0| 6c 21 31 32 29 0d 0b 22 | 04 0d 0b 2c 16 c9 20 a4 |l!12).."|...,.. .|
|00001be0| 69 73 64 61 74 61 28 70 | 6f 6c 6c 21 31 32 29 0d |isdata(p|oll!12).|
|00001bf0| 0b 36 11 62 6c 6b 21 30 | 3d 70 6f 6c 6c 21 31 32 |.6.blk!0|=poll!12|
|00001c00| 0d 0b 40 21 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |..@!.. "|Wimp_Get|
|00001c10| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 2c 62 6c |WindowSt|ate",,bl|
|00001c20| 6b 0d 0b 4a 44 f2 63 6c | 69 63 6b 64 61 74 61 28 |k..JD.cl|ickdata(|
|00001c30| 70 6f 6c 6c 21 30 2d 28 | 62 6c 6b 21 34 2d 62 6c |poll!0-(|blk!4-bl|
|00001c40| 6b 21 32 30 29 2c 70 6f | 6c 6c 21 34 2d 28 62 6c |k!20),po|ll!4-(bl|
|00001c50| 6b 21 31 36 2d 62 6c 6b | 21 32 34 29 2c 70 6f 6c |k!16-blk|!24),pol|
|00001c60| 6c 21 31 32 29 0d 0b 54 | 05 cb 0d 0b 5e 04 0d 0b |l!12)..T|....^...|
|00001c70| 68 04 0d 0b 72 15 c9 20 | 28 70 6f 6c 6c 21 38 20 |h...r.. |(poll!8 |
|00001c80| 80 20 35 29 3c 3e 30 0d | 0b 7c 10 c8 8e 20 70 6f |. 5)<>0.|.|... po|
|00001c90| 6c 6c 21 31 32 20 ca 0d | 0b 86 04 0d 0b 90 16 c9 |ll!12 ..|........|
|00001ca0| 20 a4 69 73 63 6f 64 65 | 28 70 6f 6c 6c 21 31 32 | .iscode|(poll!12|
|00001cb0| 29 0d 0b 9a 11 62 6c 6b | 21 30 3d 70 6f 6c 6c 21 |)....blk|!0=poll!|
|00001cc0| 31 32 0d 0b a4 21 c8 99 | 20 22 57 69 6d 70 5f 47 |12...!..| "Wimp_G|
|00001cd0| 65 74 57 69 6e 64 6f 77 | 53 74 61 74 65 22 2c 2c |etWindow|State",,|
|00001ce0| 62 6c 6b 0d 0b ae 3a f2 | 63 64 6f 75 62 6c 65 28 |blk...:.|cdouble(|
|00001cf0| 70 6f 6c 6c 21 30 2d 28 | 62 6c 6b 21 34 2d 62 6c |poll!0-(|blk!4-bl|
|00001d00| 6b 21 32 30 29 2c 70 6f | 6c 6c 21 34 2d 28 62 6c |k!20),po|ll!4-(bl|
|00001d10| 6b 21 31 36 2d 62 6c 6b | 21 32 34 29 29 0d 0b b8 |k!16-blk|!24))...|
|00001d20| 04 0d 0b c2 16 c9 20 a4 | 69 73 64 61 74 61 28 70 |...... .|isdata(p|
|00001d30| 6f 6c 6c 21 31 32 29 0d | 0b cc 11 62 6c 6b 21 30 |oll!12).|...blk!0|
|00001d40| 3d 70 6f 6c 6c 21 31 32 | 0d 0b d6 21 c8 99 20 22 |=poll!12|...!.. "|
|00001d50| 57 69 6d 70 5f 47 65 74 | 57 69 6e 64 6f 77 53 74 |Wimp_Get|WindowSt|
|00001d60| 61 74 65 22 2c 2c 62 6c | 6b 0d 0b e0 3a f2 64 64 |ate",,bl|k...:.dd|
|00001d70| 6f 75 62 6c 65 28 70 6f | 6c 6c 21 30 2d 28 62 6c |ouble(po|ll!0-(bl|
|00001d80| 6b 21 34 2d 62 6c 6b 21 | 32 30 29 2c 70 6f 6c 6c |k!4-blk!|20),poll|
|00001d90| 21 34 2d 28 62 6c 6b 21 | 31 36 2d 62 6c 6b 21 32 |!4-(blk!|16-blk!2|
|00001da0| 34 29 29 0d 0b ea 04 0d | 0b f4 0c c9 20 72 65 6c |4)).....|.... rel|
|00001db0| 6f 63 25 0d 0b fe 2a e7 | 20 70 6f 6c 6c 21 31 36 |oc%...*.| poll!16|
|00001dc0| 3d 31 33 20 8c 20 f2 72 | 65 6c 6f 63 5f 70 72 6f |=13 . .r|eloc_pro|
|00001dd0| 67 28 2d 31 2c 30 2c 30 | 2c 30 2c 30 29 0d 0c 08 |g(-1,0,0|,0,0)...|
|00001de0| 2f e7 20 28 70 6f 6c 6c | 21 38 20 80 20 31 29 3d |/. (poll|!8 . 1)=|
|00001df0| 30 20 8c 20 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |0 . .. "|Wimp_Cre|
|00001e00| 61 74 65 4d 65 6e 75 22 | 2c 2c 2d 31 0d 0c 12 04 |ateMenu"|,,-1....|
|00001e10| 0d 0c 1c 0b c9 20 66 69 | 6e 64 25 0d 0c 26 0f 62 |..... fi|nd%..&.b|
|00001e20| 6c 6b 21 30 3d 66 69 6e | 64 25 0d 0c 30 21 c8 99 |lk!0=fin|d%..0!..|
|00001e30| 20 22 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 6f 77 | "Wimp_G|etWindow|
|00001e40| 53 74 61 74 65 22 2c 2c | 62 6c 6b 0d 0c 3a 3a f2 |State",,|blk..::.|
|00001e50| 66 64 6f 75 62 6c 65 28 | 70 6f 6c 6c 21 30 2d 28 |fdouble(|poll!0-(|
|00001e60| 62 6c 6b 21 34 2d 62 6c | 6b 21 32 30 29 2c 70 6f |blk!4-bl|k!20),po|
|00001e70| 6c 6c 21 34 2d 28 62 6c | 6b 21 31 36 2d 62 6c 6b |ll!4-(bl|k!16-blk|
|00001e80| 21 32 34 29 29 0d 0c 44 | 04 0d 0c 4e 37 c9 20 67 |!24))..D|...N7. g|
|00001e90| 72 6f 75 70 25 28 31 29 | 2c 67 72 6f 75 70 25 28 |roup%(1)|,group%(|
|00001ea0| 32 29 2c 67 72 6f 75 70 | 25 28 33 29 2c 67 72 6f |2),group|%(3),gro|
|00001eb0| 75 70 25 28 34 29 2c 67 | 72 6f 75 70 25 28 35 29 |up%(4),g|roup%(5)|
|00001ec0| 0d 0c 58 12 e3 20 66 69 | 6e 64 77 25 3d 31 20 b8 |..X.. fi|ndw%=1 .|
|00001ed0| 20 35 0d 0c 62 38 e7 20 | 70 6f 6c 6c 21 31 32 3d | 5..b8. |poll!12=|
|00001ee0| 67 72 6f 75 70 25 28 66 | 69 6e 64 77 25 29 20 80 |group%(f|indw%) .|
|00001ef0| 20 70 6f 6c 6c 21 31 36 | 3e 3d 66 69 6e 64 69 25 | poll!16|>=findi%|
|00001f00| 28 66 69 6e 64 77 25 29 | 20 8c 0d 0c 6c 23 e7 20 |(findw%)| ...l#. |
|00001f10| 70 6f 6c 6c 21 31 36 3d | 66 69 6e 64 69 25 28 66 |poll!16=|findi%(f|
|00001f20| 69 6e 64 77 25 29 20 8c | 20 41 25 3d 30 0d 0c 76 |indw%) .| A%=0..v|
|00001f30| 2d e7 20 70 6f 6c 6c 21 | 31 36 3d 66 69 6e 64 69 |-. poll!|16=findi|
|00001f40| 25 28 66 69 6e 64 77 25 | 29 2b 31 20 8c 20 41 25 |%(findw%|)+1 . A%|
|00001f50| 3d 74 61 62 70 74 72 25 | 2d 34 0d 0c 80 0f c8 8e |=tabptr%|-4......|
|00001f60| 20 66 69 6e 64 77 25 20 | ca 0d 0c 8a 07 c9 20 31 | findw% |...... 1|
|00001f70| 0d 0c 94 0c f2 66 6f 70 | 28 41 25 29 0d 0c 9e 07 |.....fop|(A%)....|
|00001f80| c9 20 32 0d 0c a8 0e f2 | 66 64 61 74 61 28 41 25 |. 2.....|fdata(A%|
|00001f90| 29 0d 0c b2 07 c9 20 33 | 0d 0c bc 0e f2 66 6d 75 |)..... 3|.....fmu|
|00001fa0| 6c 74 28 41 25 29 0d 0c | c6 07 c9 20 34 0d 0c d0 |lt(A%)..|... 4...|
|00001fb0| 0d f2 66 73 77 69 28 41 | 25 29 0d 0c da 07 c9 20 |..fswi(A|%)..... |
|00001fc0| 35 0d 0c e4 0b f2 66 62 | 28 41 25 29 0d 0c ee 05 |5.....fb|(A%)....|
|00001fd0| cb 0d 0c f8 05 cd 0d 0d | 02 05 ed 0d 0d 0c 04 0d |........|........|
|00001fe0| 0d 16 0a c9 20 65 6e 76 | 25 0d 0d 20 10 c8 8e 20 |.... env|%.. ... |
|00001ff0| 70 6f 6c 6c 21 31 36 20 | ca 0d 0d 2a 07 c9 20 31 |poll!16 |...*.. 1|
|00002000| 0d 0d 34 41 e7 20 69 6e | 74 25 3d 30 20 8c 20 65 |..4A. in|t%=0 . e|
|00002010| 64 69 74 79 25 3d 31 3a | 69 6e 74 25 3d 31 3a f2 |dity%=1:|int%=1:.|
|00002020| 66 69 6e 64 65 78 74 3a | f2 63 6f 64 65 65 78 74 |findext:|.codeext|
|00002030| 28 2d 31 29 3a f2 64 61 | 74 61 65 78 74 28 2d 31 |(-1):.da|taext(-1|
|00002040| 29 0d 0d 3e 1f f2 6f 70 | 65 6e 6d 65 6e 75 28 2d |)..>..op|enmenu(-|
|00002050| 31 2c 6d 65 6e 75 78 25 | 2c 6d 65 6e 75 79 25 29 |1,menux%|,menuy%)|
|00002060| 0d 0d 48 07 c9 20 32 0d | 0d 52 41 e7 20 69 6e 74 |..H.. 2.|.RA. int|
|00002070| 25 3d 31 20 8c 20 65 64 | 69 74 79 25 3d 31 3a 69 |%=1 . ed|ity%=1:i|
|00002080| 6e 74 25 3d 30 3a f2 66 | 69 6e 64 65 78 74 3a f2 |nt%=0:.f|indext:.|
|00002090| 63 6f 64 65 65 78 74 28 | 2d 31 29 3a f2 64 61 74 |codeext(|-1):.dat|
|000020a0| 61 65 78 74 28 2d 31 29 | 0d 0d 5c 1f f2 6f 70 65 |aext(-1)|..\..ope|
|000020b0| 6e 6d 65 6e 75 28 2d 31 | 2c 6d 65 6e 75 78 25 2c |nmenu(-1|,menux%,|
|000020c0| 6d 65 6e 75 79 25 29 0d | 0d 66 05 cb 0d 0d 70 04 |menuy%).|.f....p.|
|000020d0| 0d 0d 7a 0b c9 20 74 65 | 78 74 25 0d 0d 84 10 c8 |..z.. te|xt%.....|
|000020e0| 8e 20 70 6f 6c 6c 21 31 | 36 20 ca 0d 0d 8e 07 c9 |. poll!1|6 ......|
|000020f0| 20 30 0d 0d 98 0e 66 69 | 6e 64 70 74 72 25 3d 30 | 0....fi|ndptr%=0|
|00002100| 0d 0d a2 0d f2 66 69 6e | 64 74 65 78 74 0d 0d ac |.....fin|dtext...|
|00002110| 1f f2 6f 70 65 6e 6d 65 | 6e 75 28 2d 31 2c 6d 65 |..openme|nu(-1,me|
|00002120| 6e 75 78 25 2c 6d 65 6e | 75 79 25 29 0d 0d b6 07 |nux%,men|uy%)....|
|00002130| c9 20 31 0d 0d c0 0d f2 | 66 69 6e 64 74 65 78 74 |. 1.....|findtext|
|00002140| 0d 0d ca 1f f2 6f 70 65 | 6e 6d 65 6e 75 28 2d 31 |.....ope|nmenu(-1|
|00002150| 2c 6d 65 6e 75 78 25 2c | 6d 65 6e 75 79 25 29 0d |,menux%,|menuy%).|
|00002160| 0d d4 05 cb 0d 0d de 04 | 0d 0d e8 0b c9 20 65 78 |........|..... ex|
|00002170| 65 63 25 0d 0d f2 04 0d | 0d fc 10 c8 8e 20 70 6f |ec%.....|..... po|
|00002180| 6c 6c 21 31 36 20 ca 0d | 0e 06 04 0d 0e 10 08 c9 |ll!16 ..|........|
|00002190| 20 31 30 0d 0e 1a 0f f2 | 6e 65 77 76 61 6c 73 28 | 10.....|newvals(|
|000021a0| 30 29 0d 0e 24 04 0d 0e | 2e 08 c9 20 31 31 0d 0e |0)..$...|... 11..|
|000021b0| 38 0c f2 65 78 65 63 75 | 74 65 0d 0e 42 04 0d 0e |8..execu|te..B...|
|000021c0| 4c 08 c9 20 32 30 0d 0e | 56 15 f2 6c 6f 73 65 62 |L.. 20..|V..loseb|
|000021d0| 6c 6f 63 6b 28 67 62 75 | 66 25 29 0d 0e 60 1b f2 |lock(gbu|f%)..`..|
|000021e0| 73 65 74 69 28 65 78 65 | 63 25 2c 32 30 2c 31 3c |seti(exe|c%,20,1<|
|000021f0| 3c 32 32 2c 31 29 0d 0e | 6a 1b f2 73 65 74 69 28 |<22,1)..|j..seti(|
|00002200| 65 78 65 63 25 2c 32 31 | 2c 31 3c 3c 32 32 2c 31 |exec%,21|,1<<22,1|
|00002210| 29 0d 0e 74 11 67 72 61 | 62 5f 6d 6f 64 65 25 3d |)..t.gra|b_mode%=|
|00002220| 2d 31 0d 0e 7e 04 0d 0e | 88 08 c9 20 32 31 0d 0e |-1..~...|... 21..|
|00002230| 92 09 f2 76 69 65 77 0d | 0e 9c 04 0d 0e a6 05 cb |...view.|........|
|00002240| 0d 0e b0 04 0d 0e ba 04 | 0d 0e c4 0b c9 20 73 61 |........|..... sa|
|00002250| 76 65 25 0d 0e ce 2a e7 | 20 70 6f 6c 6c 21 31 36 |ve%...*.| poll!16|
|00002260| 3d 32 20 8c 20 f2 73 61 | 76 65 28 24 a4 67 65 74 |=2 . .sa|ve($.get|
|00002270| 73 74 72 28 73 61 76 65 | 25 2c 31 29 29 0d 0e d8 |str(save|%,1))...|
|00002280| 04 0d 0e e2 0b c9 20 63 | 6f 70 74 25 0d 0e ec 10 |...... c|opt%....|
|00002290| c8 8e 20 70 6f 6c 6c 21 | 31 36 20 ca 0d 0e f6 0b |.. poll!|16 .....|
|000022a0| c9 20 33 2c 34 2c 35 0d | 0f 00 1b 6c 25 3d a4 69 |. 3,4,5.|...l%=.i|
|000022b0| 6e 64 65 78 28 6d 65 6e | 75 6f 77 6e 25 29 2a 38 |ndex(men|uown%)*8|
|000022c0| 2b 34 0d 0f 0a 78 77 69 | 6e 73 21 6c 25 3d 77 69 |+4...xwi|ns!l%=wi|
|000022d0| 6e 73 21 6c 25 20 80 ac | 28 28 33 32 20 84 20 38 |ns!l% ..|((32 . 8|
|000022e0| 20 84 20 31 29 3c 3c 32 | 29 20 84 20 a4 67 65 74 | . 1)<<2|) . .get|
|000022f0| 69 28 63 6f 70 74 25 2c | 33 2c 31 3c 3c 32 31 29 |i(copt%,|3,1<<21)|
|00002300| 3e 3e 31 36 20 84 20 a4 | 67 65 74 69 28 63 6f 70 |>>16 . .|geti(cop|
|00002310| 74 25 2c 34 2c 31 3c 3c | 32 31 29 3e 3e 31 39 20 |t%,4,1<<|21)>>19 |
|00002320| 84 20 a4 67 65 74 69 28 | 63 6f 70 74 25 2c 35 2c |. .geti(|copt%,5,|
|00002330| 31 3c 3c 32 31 29 3e 3e | 31 34 0d 0f 14 16 f2 63 |1<<21)>>|14.....c|
|00002340| 6f 64 65 65 78 74 28 6d | 65 6e 75 6f 77 6e 25 29 |odeext(m|enuown%)|
|00002350| 0d 0f 1e 0d c9 20 39 2c | 31 30 2c 31 31 0d 0f 28 |..... 9,|10,11..(|
|00002360| 26 69 6e 73 65 72 74 25 | 3d 2d 28 a4 67 65 74 69 |&insert%|=-(.geti|
|00002370| 28 63 6f 70 74 25 2c 39 | 2c 31 3c 3c 32 31 29 3c |(copt%,9|,1<<21)<|
|00002380| 3e 30 29 0d 0f 32 2a 63 | 6f 64 65 69 6e 73 65 72 |>0)..2*c|odeinser|
|00002390| 74 25 3d 28 a4 67 65 74 | 69 28 63 6f 70 74 25 2c |t%=(.get|i(copt%,|
|000023a0| 31 30 2c 31 3c 3c 32 31 | 29 3c 3e 30 29 0d 0f 3c |10,1<<21|)<>0)..<|
|000023b0| 27 63 6c 65 61 72 63 72 | 25 3d 28 a4 67 65 74 69 |'clearcr|%=(.geti|
|000023c0| 28 63 6f 70 74 25 2c 31 | 31 2c 31 3c 3c 32 31 29 |(copt%,1|1,1<<21)|
|000023d0| 3c 3e 30 29 0d 0f 46 05 | cb 0d 0f 50 04 0d 0f 5a |<>0)..F.|...P...Z|
|000023e0| 0b c9 20 66 6f 70 74 25 | 0d 0f 64 10 c8 8e 20 70 |.. fopt%|..d... p|
|000023f0| 6f 6c 6c 21 31 36 20 ca | 0d 0f 6e 0d c9 20 34 2c |oll!16 .|..n.. 4,|
|00002400| 35 2c 36 2c 37 0d 0f 78 | 25 77 6f 72 64 66 25 3d |5,6,7..x|%wordf%=|
|00002410| 2d 28 a4 67 65 74 69 28 | 66 6f 70 74 25 2c 34 2c |-(.geti(|fopt%,4,|
|00002420| 31 3c 3c 32 31 29 3c 3e | 30 29 0d 0f 82 25 6f 66 |1<<21)<>|0)...%of|
|00002430| 66 73 66 25 3d 2d 28 a4 | 67 65 74 69 28 66 6f 70 |fsf%=-(.|geti(fop|
|00002440| 74 25 2c 35 2c 31 3c 3c | 32 31 29 3c 3e 30 29 0d |t%,5,1<<|21)<>0).|
|00002450| 0f 8c 25 63 61 70 73 66 | 25 3d 2d 28 a4 67 65 74 |..%capsf|%=-(.get|
|00002460| 69 28 66 6f 70 74 25 2c | 36 2c 31 3c 3c 32 31 29 |i(fopt%,|6,1<<21)|
|00002470| 3c 3e 30 29 0d 0f 96 25 | 62 6c 61 6e 6b 25 3d 2d |<>0)...%|blank%=-|
|00002480| 28 a4 67 65 74 69 28 66 | 6f 70 74 25 2c 37 2c 31 |(.geti(f|opt%,7,1|
|00002490| 3c 3c 32 31 29 3c 3e 30 | 29 0d 0f a0 0c f2 66 69 |<<21)<>0|).....fi|
|000024a0| 6e 64 65 78 74 0d 0f aa | 04 0d 0f b4 0b c9 20 31 |ndext...|...... 1|
|000024b0| 30 2c 31 31 0d 0f be 33 | 61 25 3d bb 24 a4 67 65 |0,11...3|a%=.$.ge|
|000024c0| 74 73 74 72 28 66 6f 70 | 74 25 2c 39 29 2b 28 70 |tstr(fop|t%,9)+(p|
|000024d0| 6f 6c 6c 21 31 36 3d 31 | 31 29 2d 28 70 6f 6c 6c |oll!16=1|1)-(poll|
|000024e0| 21 31 36 3d 31 30 29 0d | 0f c8 11 e7 20 61 25 3c |!16=10).|.... a%<|
|000024f0| 30 20 8c 20 61 25 3d 30 | 0d 0f d2 13 e7 20 61 25 |0 . a%=0|..... a%|
|00002500| 3e 39 39 20 8c 20 61 25 | 3d 39 39 0d 0f dc 19 24 |>99 . a%|=99....$|
|00002510| a4 67 65 74 73 74 72 28 | 66 6f 70 74 25 2c 39 29 |.getstr(|fopt%,9)|
|00002520| 3d c3 61 25 0d 0f e6 16 | f2 73 65 74 69 28 66 6f |=.a%....|.seti(fo|
|00002530| 70 74 25 2c 39 2c 30 2c | 30 29 0d 0f f0 0d 72 65 |pt%,9,0,|0)....re|
|00002540| 67 75 70 25 3d 61 25 0d | 0f fa 0c f2 66 69 6e 64 |gup%=a%.|....find|
|00002550| 65 78 74 0d 10 04 0b c9 | 20 31 34 2c 31 35 0d 10 |ext.....| 14,15..|
|00002560| 0e 34 61 25 3d bb 24 a4 | 67 65 74 73 74 72 28 66 |.4a%=.$.|getstr(f|
|00002570| 6f 70 74 25 2c 31 33 29 | 2b 28 70 6f 6c 6c 21 31 |opt%,13)|+(poll!1|
|00002580| 36 3d 31 35 29 2d 28 70 | 6f 6c 6c 21 31 36 3d 31 |6=15)-(p|oll!16=1|
|00002590| 34 29 0d 10 18 11 e7 20 | 61 25 3c 30 20 8c 20 61 |4)..... |a%<0 . a|
|000025a0| 25 3d 30 0d 10 22 13 e7 | 20 61 25 3e 39 39 20 8c |%=0.."..| a%>99 .|
|000025b0| 20 61 25 3d 39 39 0d 10 | 2c 1a 24 a4 67 65 74 73 | a%=99..|,.$.gets|
|000025c0| 74 72 28 66 6f 70 74 25 | 2c 31 33 29 3d c3 61 25 |tr(fopt%|,13)=.a%|
|000025d0| 0d 10 36 17 f2 73 65 74 | 69 28 66 6f 70 74 25 2c |..6..set|i(fopt%,|
|000025e0| 31 33 2c 30 2c 30 29 0d | 10 40 0d 72 65 67 64 6e |13,0,0).|.@.regdn|
|000025f0| 25 3d 61 25 0d 10 4a 0c | f2 66 69 6e 64 65 78 74 |%=a%..J.|.findext|
|00002600| 0d 10 54 04 0d 10 5e 05 | cb 0d 10 68 04 0d 10 72 |..T...^.|...h...r|
|00002610| 0b c9 20 64 6f 70 74 25 | 0d 10 7c 10 c8 8e 20 70 |.. dopt%|..|... p|
|00002620| 6f 6c 6c 21 31 36 20 ca | 0d 10 86 0b c9 20 34 2c |oll!16 .|..... 4,|
|00002630| 35 2c 36 0d 10 90 1b 6c | 25 3d a4 69 6e 64 65 78 |5,6....l|%=.index|
|00002640| 28 6d 65 6e 75 6f 77 6e | 25 29 2a 38 2b 34 0d 10 |(menuown|%)*8+4..|
|00002650| 9a 77 77 69 6e 73 21 6c | 25 3d 77 69 6e 73 21 6c |.wwins!l|%=wins!l|
|00002660| 25 20 80 ac 28 28 34 20 | 84 20 32 20 84 20 31 29 |% ..((4 |. 2 . 1)|
|00002670| 3c 3c 32 29 20 84 20 a4 | 67 65 74 69 28 64 6f 70 |<<2) . .|geti(dop|
|00002680| 74 25 2c 34 2c 31 3c 3c | 32 31 29 3e 3e 31 37 20 |t%,4,1<<|21)>>17 |
|00002690| 84 20 a4 67 65 74 69 28 | 64 6f 70 74 25 2c 35 2c |. .geti(|dopt%,5,|
|000026a0| 31 3c 3c 32 31 29 3e 3e | 31 38 20 84 20 a4 67 65 |1<<21)>>|18 . .ge|
|000026b0| 74 69 28 64 6f 70 74 25 | 2c 36 2c 31 3c 3c 32 31 |ti(dopt%|,6,1<<21|
|000026c0| 29 3e 3e 31 39 0d 10 a4 | 16 f2 64 61 74 61 65 78 |)>>19...|..dataex|
|000026d0| 74 28 6d 65 6e 75 6f 77 | 6e 25 29 0d 10 ae 04 0d |t(menuow|n%).....|
|000026e0| 10 b8 0c c9 20 38 2c 39 | 2c 31 30 0d 10 c2 1b 6c |.... 8,9|,10....l|
|000026f0| 25 3d a4 69 6e 64 65 78 | 28 6d 65 6e 75 6f 77 6e |%=.index|(menuown|
|00002700| 25 29 2a 38 2b 34 0d 10 | cc 22 f2 73 65 74 69 28 |%)*8+4..|.".seti(|
|00002710| 64 6f 70 74 25 2c 38 2c | 31 3c 3c 32 31 2c 70 6f |dopt%,8,|1<<21,po|
|00002720| 6c 6c 21 31 36 3d 38 29 | 0d 10 d6 22 f2 73 65 74 |ll!16=8)|...".set|
|00002730| 69 28 64 6f 70 74 25 2c | 39 2c 31 3c 3c 32 31 2c |i(dopt%,|9,1<<21,|
|00002740| 70 6f 6c 6c 21 31 36 3d | 39 29 0d 10 e0 24 f2 73 |poll!16=|9)...$.s|
|00002750| 65 74 69 28 64 6f 70 74 | 25 2c 31 30 2c 31 3c 3c |eti(dopt|%,10,1<<|
|00002760| 32 31 2c 70 6f 6c 6c 21 | 31 36 3d 31 30 29 0d 10 |21,poll!|16=10)..|
|00002770| ea 18 63 74 72 6c 25 3d | 77 69 6e 73 21 6c 25 20 |..ctrl%=|wins!l% |
|00002780| 80 20 33 3c 3c 35 0d 10 | f4 2a 77 69 6e 73 21 6c |. 3<<5..|.*wins!l|
|00002790| 25 3d 77 69 6e 73 21 6c | 25 20 80 ac 63 74 72 6c |%=wins!l|% ..ctrl|
|000027a0| 25 20 84 20 70 6f 6c 6c | 21 31 36 2d 38 3c 3c 35 |% . poll|!16-8<<5|
|000027b0| 0d 10 fe 30 e7 20 28 70 | 6f 6c 6c 21 31 36 2d 38 |...0. (p|oll!16-8|
|000027c0| 3c 3c 35 29 3c 3e 63 74 | 72 6c 25 20 8c 20 f2 64 |<<5)<>ct|rl% . .d|
|000027d0| 61 74 61 65 78 74 28 6d | 65 6e 75 6f 77 6e 25 29 |ataext(m|enuown%)|
|000027e0| 0d 11 08 05 cb 0d 11 12 | 04 0d 11 1c 04 0d 11 26 |........|.......&|
|000027f0| 08 c9 20 2d 32 0d 11 30 | 15 c8 8e 20 28 70 6f 6c |.. -2..0|... (pol|
|00002800| 6c 21 38 20 80 20 35 29 | 20 ca 0d 11 3a 07 c9 20 |l!8 . 5)| ...:.. |
|00002810| 34 0d 11 44 11 41 25 3d | a4 6e 65 77 77 69 6e 28 |4..D.A%=|.newwin(|
|00002820| 30 29 0d 11 4e 07 c9 20 | 31 0d 11 58 11 41 25 3d |0)..N.. |1..X.A%=|
|00002830| a4 6e 65 77 77 69 6e 28 | 31 29 0d 11 62 05 cb 0d |.newwin(|1)..b...|
|00002840| 11 6c 05 cb 0d 11 76 04 | 0d 11 80 15 c9 20 28 70 |.l....v.|..... (p|
|00002850| 6f 6c 6c 21 38 20 80 20 | 32 29 3c 3e 30 0d 11 8a |oll!8 . |2)<>0...|
|00002860| 10 c8 8e 20 70 6f 6c 6c | 21 31 32 20 ca 0d 11 94 |... poll|!12 ....|
|00002870| 08 c9 20 2d 32 0d 11 9e | 0f 6d 65 6e 75 6f 77 6e |.. -2...|.menuown|
|00002880| 25 3d 2d 32 0d 11 a8 2a | f2 6f 70 65 6e 6d 65 6e |%=-2...*|.openmen|
|00002890| 75 28 6d 68 25 28 30 29 | 2c 70 6f 6c 6c 21 30 2d |u(mh%(0)|,poll!0-|
|000028a0| 39 36 2c 39 36 2b 68 65 | 69 67 68 74 25 29 0d 11 |96,96+he|ight%)..|
|000028b0| b2 0b c9 20 66 69 6e 64 | 25 0d 11 bc 12 6d 65 6e |... find|%....men|
|000028c0| 75 6f 77 6e 25 3d 66 69 | 6e 64 25 0d 11 c6 29 f2 |uown%=fi|nd%...).|
|000028d0| 6f 70 65 6e 6d 65 6e 75 | 28 6d 68 25 28 32 29 2c |openmenu|(mh%(2),|
|000028e0| 70 6f 6c 6c 21 30 2d 39 | 36 2c 70 6f 6c 6c 21 34 |poll!0-9|6,poll!4|
|000028f0| 2b 33 32 29 0d 11 d0 16 | c9 20 a4 69 73 63 6f 64 |+32)....|. .iscod|
|00002900| 65 28 70 6f 6c 6c 21 31 | 32 29 0d 11 da 14 6d 65 |e(poll!1|2)....me|
|00002910| 6e 75 6f 77 6e 25 3d 70 | 6f 6c 6c 21 31 32 0d 11 |nuown%=p|oll!12..|
|00002920| e4 2a f2 6f 70 65 6e 6d | 65 6e 75 28 6d 68 25 28 |.*.openm|enu(mh%(|
|00002930| 31 32 29 2c 70 6f 6c 6c | 21 30 2d 39 36 2c 70 6f |12),poll|!0-96,po|
|00002940| 6c 6c 21 34 2b 33 32 29 | 0d 11 ee 16 c9 20 a4 69 |ll!4+32)|..... .i|
|00002950| 73 64 61 74 61 28 70 6f | 6c 6c 21 31 32 29 0d 11 |sdata(po|ll!12)..|
|00002960| f8 14 6d 65 6e 75 6f 77 | 6e 25 3d 70 6f 6c 6c 21 |..menuow|n%=poll!|
|00002970| 31 32 0d 12 02 29 f2 6f | 70 65 6e 6d 65 6e 75 28 |12...).o|penmenu(|
|00002980| 6d 68 25 28 36 29 2c 70 | 6f 6c 6c 21 30 2d 39 36 |mh%(6),p|oll!0-96|
|00002990| 2c 70 6f 6c 6c 21 34 2b | 33 32 29 0d 12 0c 05 cb |,poll!4+|32).....|
|000029a0| 0d 12 16 04 0d 12 20 17 | c9 20 28 70 6f 6c 6c 21 |...... .|. (poll!|
|000029b0| 38 20 80 20 26 35 30 29 | 3c 3e 30 0d 12 2a 27 e7 |8 . &50)|<>0..*'.|
|000029c0| 20 70 6f 6c 6c 21 31 32 | 3d 73 61 76 65 25 20 80 | poll!12|=save% .|
|000029d0| 20 70 6f 6c 6c 21 31 36 | 3d 30 20 8c 20 f2 64 72 | poll!16|=0 . .dr|
|000029e0| 61 67 0d 12 34 05 cb 0d | 12 3e 05 e1 0d 12 48 04 |ag..4...|.>....H.|
|000029f0| 0d 12 52 04 0d 12 5c 0d | dd f2 65 6e 64 64 72 61 |..R...\.|..enddra|
|00002a00| 67 0d 12 66 22 c8 99 20 | 22 57 69 6d 70 5f 47 65 |g..f".. |"Wimp_Ge|
|00002a10| 74 50 6f 69 6e 74 65 72 | 49 6e 66 6f 22 2c 2c 70 |tPointer|Info",,p|
|00002a20| 6f 6c 6c 0d 12 70 13 e7 | 20 70 6f 6c 6c 21 31 32 |oll..p..| poll!12|
|00002a30| 3c 3e 2d 31 20 8c 0d 12 | 7a 13 70 6f 6c 6c 21 32 |<>-1 ...|z.poll!2|
|00002a40| 30 3d 70 6f 6c 6c 21 31 | 32 0d 12 84 13 70 6f 6c |0=poll!1|2....pol|
|00002a50| 6c 21 32 34 3d 70 6f 6c | 6c 21 31 36 0d 12 8e 12 |l!24=pol|l!16....|
|00002a60| 70 6f 6c 6c 21 32 38 3d | 70 6f 6c 6c 21 30 0d 12 |poll!28=|poll!0..|
|00002a70| 98 12 70 6f 6c 6c 21 33 | 32 3d 70 6f 6c 6c 21 34 |..poll!3|2=poll!4|
|00002a80| 0d 12 a2 11 c8 8e 20 6d | 65 6e 75 6f 77 6e 25 20 |...... m|enuown% |
|00002a90| ca 0d 12 ac 1a c9 20 a4 | 69 73 63 6f 64 65 28 6d |...... .|iscode(m|
|00002aa0| 65 6e 75 6f 77 6e 25 29 | 2c 2d 32 0d 12 b6 23 e7 |enuown%)|,-2...#.|
|00002ab0| 20 c2 24 a4 67 65 74 76 | 61 6c 28 73 61 76 65 25 | .$.getv|al(save%|
|00002ac0| 2c 30 29 2c 33 29 3d 22 | 78 78 78 22 20 8c 0d 12 |,0),3)="|xxx" ...|
|00002ad0| c0 0e 70 6f 6c 6c 21 34 | 30 3d 2d 31 0d 12 ca 18 |..poll!4|0=-1....|
|00002ae0| 70 6f 6c 6c 21 33 36 3d | 73 69 7a 65 32 25 28 69 |poll!36=|size2%(i|
|00002af0| 6e 74 25 29 0d 12 d4 2a | cc 20 70 6f 6c 6c 21 34 |nt%)...*|. poll!4|
|00002b00| 30 3d a0 28 22 26 22 2b | c2 24 a4 67 65 74 76 61 |0=.("&"+|.$.getva|
|00002b10| 6c 28 73 61 76 65 25 2c | 30 29 2c 33 29 29 0d 12 |l(save%,|0),3))..|
|00002b20| de 0e 70 6f 6c 6c 21 33 | 36 3d 2d 31 0d 12 e8 05 |..poll!3|6=-1....|
|00002b30| cd 0d 12 f2 04 0d 12 fc | 05 cb 0d 13 06 04 0d 13 |........|........|
|00002b40| 10 11 69 63 6f 6e 25 3d | 70 6f 6c 6c 2b 34 34 0d |..icon%=|poll+44.|
|00002b50| 13 1a 23 24 69 63 6f 6e | 25 3d 24 a4 74 6f 63 72 |..#$icon|%=$.tocr|
|00002b60| 28 a4 67 65 74 73 74 72 | 28 73 61 76 65 25 2c 31 |(.getstr|(save%,1|
|00002b70| 29 29 0d 13 24 13 c8 95 | 20 a7 24 69 63 6f 6e 25 |))..$...| .$icon%|
|00002b80| 2c 22 3a 22 29 0d 13 2e | 22 24 69 63 6f 6e 25 3d |,":")...|"$icon%=|
|00002b90| c1 24 69 63 6f 6e 25 2c | a7 24 69 63 6f 6e 25 2c |.$icon%,|.$icon%,|
|00002ba0| 22 3a 22 29 2b 31 29 0d | 13 38 05 ce 0d 13 42 13 |":")+1).|.8....B.|
|00002bb0| c8 95 20 a7 24 69 63 6f | 6e 25 2c 22 2e 22 29 0d |.. .$ico|n%,".").|
|00002bc0| 13 4c 22 24 69 63 6f 6e | 25 3d c1 24 69 63 6f 6e |.L"$icon|%=.$icon|
|00002bd0| 25 2c a7 24 69 63 6f 6e | 25 2c 22 2e 22 29 2b 31 |%,.$icon|%,".")+1|
|00002be0| 29 0d 13 56 05 ce 0d 13 | 60 18 24 69 63 6f 6e 25 |)..V....|`.$icon%|
|00002bf0| 3d 24 a4 74 6f 7a 72 28 | 69 63 6f 6e 25 29 0d 13 |=$.tozr(|icon%)..|
|00002c00| 6a 04 0d 13 74 1d 70 6f | 6c 6c 21 30 3d 28 34 34 |j...t.po|ll!0=(44|
|00002c10| 2b a9 24 69 63 6f 6e 25 | 2b 33 29 20 80 ac 33 0d |+.$icon%|+3) ..3.|
|00002c20| 13 7e 0c 70 6f 6c 6c 21 | 34 3d 30 0d 13 88 0c 70 |.~.poll!|4=0....p|
|00002c30| 6f 6c 6c 21 38 3d 30 0d | 13 92 0d 70 6f 6c 6c 21 |oll!8=0.|...poll!|
|00002c40| 31 32 3d 30 0d 13 9c 0d | 70 6f 6c 6c 21 31 36 3d |12=0....|poll!16=|
|00002c50| 31 0d 13 a6 3d c8 99 20 | 22 57 69 6d 70 5f 53 65 |1...=.. |"Wimp_Se|
|00002c60| 6e 64 4d 65 73 73 61 67 | 65 22 2c 31 37 2c 70 6f |ndMessag|e",17,po|
|00002c70| 6c 6c 2c 70 6f 6c 6c 21 | 32 30 2c 70 6f 6c 6c 21 |ll,poll!|20,poll!|
|00002c80| 32 34 20 b8 20 2c 2c 73 | 61 76 65 5f 68 25 0d 13 |24 . ,,s|ave_h%..|
|00002c90| b0 0f 72 65 66 25 3d 70 | 6f 6c 6c 21 38 0d 13 ba |..ref%=p|oll!8...|
|00002ca0| 0f 73 61 76 65 5f 70 74 | 72 25 3d 30 0d 13 c4 05 |.save_pt|r%=0....|
|00002cb0| cd 0d 13 ce 05 e1 0d 13 | d8 04 0d 13 e2 04 0d 13 |........|........|
|00002cc0| ec 09 dd f2 6b 65 79 0d | 13 f6 0a 6b 65 79 25 3d |....key.|...key%=|
|00002cd0| b9 0d 14 00 25 c8 99 20 | 22 57 69 6d 70 5f 47 65 |....%.. |"Wimp_Ge|
|00002ce0| 74 50 6f 69 6e 74 65 72 | 49 6e 66 6f 22 2c 2c 62 |tPointer|Info",,b|
|00002cf0| 6c 6b 2b 32 35 36 0d 14 | 0a 04 0d 14 14 10 c8 8e |lk+256..|........|
|00002d00| 20 70 6f 6c 6c 21 32 34 | 20 ca 0d 14 1e 04 0d 14 | poll!24| .......|
|00002d10| 28 07 c9 20 32 0d 14 32 | 10 62 6c 6b 21 30 3d 62 |(.. 2..2|.blk!0=b|
|00002d20| 72 65 61 6b 25 0d 14 3c | 21 c8 99 20 22 57 69 6d |reak%..<|!.. "Wim|
|00002d30| 70 5f 47 65 74 57 69 6e | 64 6f 77 53 74 61 74 65 |p_GetWin|dowState|
|00002d40| 22 2c 2c 62 6c 6b 0d 14 | 46 0d 62 6c 6b 21 32 38 |",,blk..|F.blk!28|
|00002d50| 3d 2d 31 0d 14 50 1d c8 | 99 20 22 57 69 6d 70 5f |=-1..P..|. "Wimp_|
|00002d60| 4f 70 65 6e 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6b |OpenWind|ow",,blk|
|00002d70| 0d 14 5a 07 c9 20 33 0d | 14 64 11 41 25 3d a4 6e |..Z.. 3.|.d.A%=.n|
|00002d80| 65 77 77 69 6e 28 30 29 | 0d 14 6e 07 c9 20 34 0d |ewwin(0)|..n.. 4.|
|00002d90| 14 78 11 41 25 3d a4 6e | 65 77 77 69 6e 28 31 29 |.x.A%=.n|ewwin(1)|
|00002da0| 0d 14 82 07 c9 20 35 0d | 14 8c 29 f2 6f 70 65 6e |..... 5.|..).open|
|00002db0| 6d 65 6e 75 28 65 6e 76 | 25 2c 62 6c 6b 21 32 35 |menu(env|%,blk!25|
|00002dc0| 36 2d 39 36 2c 62 6c 6b | 21 32 36 30 2b 33 32 29 |6-96,blk|!260+32)|
|00002dd0| 0d 14 96 07 c9 20 36 0d | 14 a0 0f 62 6c 6b 21 30 |..... 6.|...blk!0|
|00002de0| 3d 66 69 6e 64 25 0d 14 | aa 21 c8 99 20 22 57 69 |=find%..|.!.. "Wi|
|00002df0| 6d 70 5f 47 65 74 57 69 | 6e 64 6f 77 53 74 61 74 |mp_GetWi|ndowStat|
|00002e00| 65 22 2c 2c 62 6c 6b 0d | 14 b4 0d 62 6c 6b 21 32 |e",,blk.|...blk!2|
|00002e10| 38 3d 2d 31 0d 14 be 1d | c8 99 20 22 57 69 6d 70 |8=-1....|.. "Wimp|
|00002e20| 5f 4f 70 65 6e 57 69 6e | 64 6f 77 22 2c 2c 62 6c |_OpenWin|dow",,bl|
|00002e30| 6b 0d 14 c8 08 c9 20 31 | 38 0d 14 d2 0f 62 6c 6b |k..... 1|8....blk|
|00002e40| 21 30 3d 64 75 6d 70 25 | 0d 14 dc 21 c8 99 20 22 |!0=dump%|...!.. "|
|00002e50| 57 69 6d 70 5f 47 65 74 | 57 69 6e 64 6f 77 53 74 |Wimp_Get|WindowSt|
|00002e60| 61 74 65 22 2c 2c 62 6c | 6b 0d 14 e6 0d 62 6c 6b |ate",,bl|k....blk|
|00002e70| 21 32 38 3d 2d 31 0d 14 | f0 1d c8 99 20 22 57 69 |!28=-1..|.... "Wi|
|00002e80| 6d 70 5f 4f 70 65 6e 57 | 69 6e 64 6f 77 22 2c 2c |mp_OpenW|indow",,|
|00002e90| 62 6c 6b 0d 14 fa 08 c9 | 20 32 34 0d 15 04 0f 62 |blk.....| 24....b|
|00002ea0| 6c 6b 21 30 3d 65 78 65 | 63 25 0d 15 0e 21 c8 99 |lk!0=exe|c%...!..|
|00002eb0| 20 22 57 69 6d 70 5f 47 | 65 74 57 69 6e 64 6f 77 | "Wimp_G|etWindow|
|00002ec0| 53 74 61 74 65 22 2c 2c | 62 6c 6b 0d 15 18 0d 62 |State",,|blk....b|
|00002ed0| 6c 6b 21 32 38 3d 2d 31 | 0d 15 22 1d c8 99 20 22 |lk!28=-1|.."... "|
|00002ee0| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|00002ef0| 2c 2c 62 6c 6b 0d 15 2c | 04 0d 15 36 0a c9 20 26 |,,blk..,|...6.. &|
|00002f00| 31 38 31 0d 15 40 2b f2 | 6f 70 65 6e 6d 65 6e 75 |181..@+.|openmenu|
|00002f10| 28 6d 68 25 28 32 29 2c | 62 6c 6b 21 32 35 36 2d |(mh%(2),|blk!256-|
|00002f20| 39 36 2c 62 6c 6b 21 32 | 36 30 2b 33 32 29 0d 15 |96,blk!2|60+32)..|
|00002f30| 4a 04 0d 15 54 0a c9 20 | 26 31 38 33 0d 15 5e 0d |J...T.. |&183..^.|
|00002f40| e7 20 66 69 6c 65 25 20 | 8c 0d 15 68 0f 6d 65 6e |. file% |...h.men|
|00002f50| 75 6f 77 6e 25 3d 2d 32 | 0d 15 72 17 76 25 3d a4 |uown%=-2|..r.v%=.|
|00002f60| 67 65 74 76 61 6c 28 73 | 61 76 65 25 2c 30 29 0d |getval(s|ave%,0).|
|00002f70| 15 7c 14 e7 20 66 74 79 | 70 65 25 3d 26 31 30 30 |.|.. fty|pe%=&100|
|00002f80| 30 20 8c 0d 15 86 13 24 | 76 25 3d 22 53 66 69 6c |0 .....$|v%="Sfil|
|00002f90| 65 5f 78 78 78 22 0d 15 | 90 05 cc 0d 15 9a 19 24 |e_xxx"..|.......$|
|00002fa0| 76 25 3d 22 53 66 69 6c | 65 5f 22 2b c3 7e 66 74 |v%="Sfil|e_"+.~ft|
|00002fb0| 79 70 65 25 0d 15 a4 05 | cd 0d 15 ae 1b 24 a4 67 |ype%....|.....$.g|
|00002fc0| 65 74 73 74 72 28 73 61 | 76 65 25 2c 31 29 3d 66 |etstr(sa|ve%,1)=f|
|00002fd0| 69 6c 65 24 0d 15 b8 2a | f2 6f 70 65 6e 6d 65 6e |ile$...*|.openmen|
|00002fe0| 75 28 73 61 76 65 25 2c | 62 6c 6b 21 32 35 36 2d |u(save%,|blk!256-|
|00002ff0| 39 36 2c 62 6c 6b 21 32 | 36 30 2b 33 32 29 0d 15 |96,blk!2|60+32)..|
|00003000| c2 05 cd 0d 15 cc 04 0d | 15 d6 0a c9 20 26 31 38 |........|.... &18|
|00003010| 34 0d 15 e0 13 6d 65 6e | 75 6f 77 6e 25 3d 70 6f |4....men|uown%=po|
|00003020| 6c 6c 21 30 0d 15 ea 2a | f2 6f 70 65 6e 6d 65 6e |ll!0...*|.openmen|
|00003030| 75 28 74 65 78 74 25 2c | 62 6c 6b 21 32 35 36 2d |u(text%,|blk!256-|
|00003040| 39 36 2c 62 6c 6b 21 32 | 36 30 2b 33 32 29 0d 15 |96,blk!2|60+32)..|
|00003050| f4 04 0d 15 fe 0a c9 20 | 26 31 41 39 0d 16 08 0c |....... |&1A9....|
|00003060| f2 65 78 65 63 75 74 65 | 0d 16 12 04 0d 16 1c 05 |.execute|........|
|00003070| 7f 0d 16 26 04 0d 16 30 | 0f c8 8e 20 70 6f 6c 6c |...&...0|... poll|
|00003080| 21 30 20 ca 0d 16 3a 5c | c9 20 67 72 6f 75 70 25 |!0 ...:\|. group%|
|00003090| 28 31 29 2c 67 72 6f 75 | 70 25 28 32 29 2c 67 72 |(1),grou|p%(2),gr|
|000030a0| 6f 75 70 25 28 33 29 2c | 67 72 6f 75 70 25 28 34 |oup%(3),|group%(4|
|000030b0| 29 2c 67 72 6f 75 70 25 | 28 35 29 2c 74 65 78 74 |),group%|(5),text|
|000030c0| 25 2c 65 6e 76 25 2c 64 | 75 6d 70 25 2c 62 72 65 |%,env%,d|ump%,bre|
|000030d0| 61 6b 25 2c 65 78 65 63 | 25 2c 72 65 6c 6f 63 25 |ak%,exec|%,reloc%|
|000030e0| 0d 16 44 0d f2 6d 65 6e | 75 6b 65 79 73 0d 16 4e |..D..men|ukeys..N|
|000030f0| 04 0d 16 58 15 c9 20 a4 | 69 73 63 6f 64 65 28 70 |...X.. .|iscode(p|
|00003100| 6f 6c 6c 21 30 29 0d 16 | 62 0d f2 63 6f 64 65 6b |oll!0)..|b..codek|
|00003110| 65 79 73 0d 16 6c 04 0d | 16 76 15 c9 20 a4 69 73 |eys..l..|.v.. .is|
|00003120| 64 61 74 61 28 70 6f 6c | 6c 21 30 29 0d 16 80 0d |data(pol|l!0)....|
|00003130| f2 64 61 74 61 6b 65 79 | 73 0d 16 8a 04 0d 16 94 |.datakey|s.......|
|00003140| 0b c9 20 73 61 76 65 25 | 0d 16 9e 2b e7 20 70 6f |.. save%|...+. po|
|00003150| 6c 6c 21 32 34 3d 31 33 | 20 8c 20 f2 73 61 76 65 |ll!24=13| . .save|
|00003160| 28 24 a4 67 65 74 73 74 | 72 28 73 61 76 65 25 2c |($.getst|r(save%,|
|00003170| 31 29 29 0d 16 a8 05 cb | 0d 16 b2 04 0d 16 bc 05 |1)).....|........|
|00003180| 7f 0d 16 c6 0a 6b 65 79 | 25 3d a3 0d 16 d0 05 cb |.....key|%=......|
|00003190| 0d 16 da 04 0d 16 e4 2b | e7 20 6b 65 79 25 3d a3 |.......+|. key%=.|
|000031a0| 20 8c 20 c8 99 20 22 57 | 69 6d 70 5f 50 72 6f 63 | . .. "W|imp_Proc|
|000031b0| 65 73 73 4b 65 79 22 2c | 70 6f 6c 6c 21 32 34 0d |essKey",|poll!24.|
|000031c0| 16 ee 05 e1 0d 16 f8 04 | 0d 17 02 04 0d 17 0c 10 |........|........|
|000031d0| dd f2 6d 65 6e 75 73 65 | 6c 65 63 74 0d 17 16 04 |..menuse|lect....|
|000031e0| 0d 17 20 29 c8 99 20 22 | 57 69 6d 70 5f 44 65 63 |.. ).. "|Wimp_Dec|
|000031f0| 6f 64 65 4d 65 6e 75 22 | 2c 2c 6d 65 6e 75 68 25 |odeMenu"|,,menuh%|
|00003200| 2c 70 6f 6c 6c 2c 62 6c | 6b 0d 17 2a 12 73 75 62 |,poll,bl|k..*.sub|
|00003210| 70 74 72 25 28 30 29 3d | 62 6c 6b 0d 17 34 04 0d |ptr%(0)=|blk..4..|
|00003220| 17 3e 09 41 25 3d 2d 31 | 0d 17 48 05 f5 0d 17 52 |.>.A%=-1|..H....R|
|00003230| 09 41 25 2b 3d 31 0d 17 | 5c 1d 73 75 62 70 74 72 |.A%+=1..|\.subptr|
|00003240| 25 28 41 25 2b 31 29 3d | 73 75 62 70 74 72 25 28 |%(A%+1)=|subptr%(|
|00003250| 41 25 29 0d 17 66 0a 6b | 65 79 25 3d a3 0d 17 70 |A%)..f.k|ey%=...p|
|00003260| 05 f5 0d 17 7a 3a e7 20 | 3f 73 75 62 70 74 72 25 |....z:. |?subptr%|
|00003270| 28 41 25 2b 31 29 3d 31 | 36 30 20 80 ac 6b 65 79 |(A%+1)=1|60 ..key|
|00003280| 25 20 8c 20 3f 73 75 62 | 70 74 72 25 28 41 25 2b |% . ?sub|ptr%(A%+|
|00003290| 31 29 3d 31 33 3a 6b 65 | 79 25 3d b9 0d 17 84 14 |1)=13:ke|y%=.....|
|000032a0| 73 75 62 70 74 72 25 28 | 41 25 2b 31 29 2b 3d 31 |subptr%(|A%+1)+=1|
|000032b0| 0d 17 8e 2d fd 20 3f 73 | 75 62 70 74 72 25 28 41 |...-. ?s|ubptr%(A|
|000032c0| 25 2b 31 29 3d 97 22 2e | 22 20 84 20 3f 73 75 62 |%+1)=.".|" . ?sub|
|000032d0| 70 74 72 25 28 41 25 2b | 31 29 3d 26 44 0d 17 98 |ptr%(A%+|1)=&D...|
|000032e0| 3e e7 20 3f 73 75 62 70 | 74 72 25 28 41 25 2b 31 |>. ?subp|tr%(A%+1|
|000032f0| 29 3d 97 22 2e 22 20 8c | 20 3f 73 75 62 70 74 72 |)=."." .| ?subptr|
|00003300| 25 28 41 25 2b 31 29 3d | 31 33 3a 73 75 62 70 74 |%(A%+1)=|13:subpt|
|00003310| 72 25 28 41 25 2b 31 29 | 2b 3d 31 0d 17 a2 17 fd |r%(A%+1)|+=1.....|
|00003320| 20 3f 73 75 62 70 74 72 | 25 28 41 25 2b 31 29 3d | ?subptr|%(A%+1)=|
|00003330| 26 44 0d 17 ac 04 0d 17 | b6 16 24 28 62 6c 6b 2b |&D......|..$(blk+|
|00003340| 32 35 36 29 3d 24 6d 65 | 6e 75 68 25 0d 17 c0 04 |256)=$me|nuh%....|
|00003350| 0d 17 ca 13 c8 8e 20 24 | 28 62 6c 6b 2b 32 35 36 |...... $|(blk+256|
|00003360| 29 20 ca 0d 17 d4 0b c9 | 20 24 74 61 73 6b 0d 17 |) ......| $task..|
|00003370| de 04 0d 17 e8 14 c8 8e | 20 24 73 75 62 70 74 72 |........| $subptr|
|00003380| 25 28 30 29 20 ca 0d 17 | f2 0c c9 20 22 46 69 6c |%(0) ...|... "Fil|
|00003390| 65 22 0d 17 fc 1c e7 20 | 24 73 75 62 70 74 72 25 |e"..... |$subptr%|
|000033a0| 28 31 29 3d 22 52 65 6d | 6f 76 65 22 20 8c 0d 18 |(1)="Rem|ove" ...|
|000033b0| 06 17 f2 67 72 61 62 62 | 6c 6f 63 6b 28 66 62 75 |...grabb|lock(fbu|
|000033c0| 66 25 2c 30 29 0d 18 10 | 0b 66 69 6c 65 25 3d a3 |f%,0)...|.file%=.|
|000033d0| 0d 18 1a 41 e7 20 69 6e | 74 25 3d 31 20 8c 20 69 |...A. in|t%=1 . i|
|000033e0| 6e 74 25 3d 30 3a 65 64 | 69 74 79 25 3d 31 3a f2 |nt%=0:ed|ity%=1:.|
|000033f0| 66 69 6e 64 65 78 74 3a | f2 63 6f 64 65 65 78 74 |findext:|.codeext|
|00003400| 28 2d 31 29 3a f2 64 61 | 74 61 65 78 74 28 2d 31 |(-1):.da|taext(-1|
|00003410| 29 0d 18 24 0a 69 6e 74 | 25 3d 30 0d 18 2e 05 cd |)..$.int|%=0.....|
|00003420| 0d 18 38 04 0d 18 42 0c | c9 20 22 53 68 6f 77 22 |..8...B.|. "Show"|
|00003430| 0d 18 4c 14 c8 8e 20 24 | 73 75 62 70 74 72 25 28 |..L... $|subptr%(|
|00003440| 31 29 20 ca 0d 18 56 0c | c9 20 22 43 6f 64 65 22 |1) ...V.|. "Code"|
|00003450| 0d 18 60 11 41 25 3d a4 | 6e 65 77 77 69 6e 28 30 |..`.A%=.|newwin(0|
|00003460| 29 0d 18 6a 0c c9 20 22 | 44 61 74 61 22 0d 18 74 |)..j.. "|Data"..t|
|00003470| 11 41 25 3d a4 6e 65 77 | 77 69 6e 28 31 29 0d 18 |.A%=.new|win(1)..|
|00003480| 7e 0c c9 20 22 46 69 6e | 64 22 0d 18 88 0f 62 6c |~.. "Fin|d"....bl|
|00003490| 6b 21 30 3d 66 69 6e 64 | 25 0d 18 92 21 c8 99 20 |k!0=find|%...!.. |
|000034a0| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|000034b0| 74 61 74 65 22 2c 2c 62 | 6c 6b 0d 18 9c 0d 62 6c |tate",,b|lk....bl|
|000034c0| 6b 21 32 38 3d 2d 31 0d | 18 a6 1d c8 99 20 22 57 |k!28=-1.|..... "W|
|000034d0| 69 6d 70 5f 4f 70 65 6e | 57 69 6e 64 6f 77 22 2c |imp_Open|Window",|
|000034e0| 2c 62 6c 6b 0d 18 b0 11 | c9 20 22 52 65 67 69 73 |,blk....|. "Regis|
|000034f0| 74 65 72 73 22 0d 18 ba | 0f 62 6c 6b 21 30 3d 64 |ters"...|.blk!0=d|
|00003500| 75 6d 70 25 0d 18 c4 21 | c8 99 20 22 57 69 6d 70 |ump%...!|.. "Wimp|
|00003510| 5f 47 65 74 57 69 6e 64 | 6f 77 53 74 61 74 65 22 |_GetWind|owState"|
|00003520| 2c 2c 62 6c 6b 0d 18 ce | 0d 62 6c 6b 21 32 38 3d |,,blk...|.blk!28=|
|00003530| 2d 31 0d 18 d8 1d c8 99 | 20 22 57 69 6d 70 5f 4f |-1......| "Wimp_O|
|00003540| 70 65 6e 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6b 0d |penWindo|w",,blk.|
|00003550| 18 e2 13 c9 20 22 42 72 | 65 61 6b 70 6f 69 6e 74 |.... "Br|eakpoint|
|00003560| 73 22 0d 18 ec 10 62 6c | 6b 21 30 3d 62 72 65 61 |s"....bl|k!0=brea|
|00003570| 6b 25 0d 18 f6 21 c8 99 | 20 22 57 69 6d 70 5f 47 |k%...!..| "Wimp_G|
|00003580| 65 74 57 69 6e 64 6f 77 | 53 74 61 74 65 22 2c 2c |etWindow|State",,|
|00003590| 62 6c 6b 0d 19 00 0d 62 | 6c 6b 21 32 38 3d 2d 31 |blk....b|lk!28=-1|
|000035a0| 0d 19 0a 1d c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |...... "|Wimp_Ope|
|000035b0| 6e 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6b 0d 19 14 |nWindow"|,,blk...|
|000035c0| 11 c9 20 22 45 78 65 63 | 75 74 69 6f 6e 22 0d 19 |.. "Exec|ution"..|
|000035d0| 1e 0f 62 6c 6b 21 30 3d | 65 78 65 63 25 0d 19 28 |..blk!0=|exec%..(|
|000035e0| 21 c8 99 20 22 57 69 6d | 70 5f 47 65 74 57 69 6e |!.. "Wim|p_GetWin|
|000035f0| 64 6f 77 53 74 61 74 65 | 22 2c 2c 62 6c 6b 0d 19 |dowState|",,blk..|
|00003600| 32 0d 62 6c 6b 21 32 38 | 3d 2d 31 0d 19 3c 1d c8 |2.blk!28|=-1..<..|
|00003610| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |. "Wimp_|OpenWind|
|00003620| 6f 77 22 2c 2c 62 6c 6b | 0d 19 46 05 cb 0d 19 50 |ow",,blk|..F....P|
|00003630| 04 0d 19 5a 0f c9 20 22 | 4d 6f 64 75 6c 65 73 22 |...Z.. "|Modules"|
|00003640| 0d 19 64 14 c8 8e 20 24 | 73 75 62 70 74 72 25 28 |..d... $|subptr%(|
|00003650| 31 29 20 ca 0d 19 6e 0e | c9 20 22 53 65 6c 65 63 |1) ...n.|. "Selec|
|00003660| 74 22 0d 19 78 30 e7 20 | 24 73 75 62 70 74 72 25 |t"..x0. |$subptr%|
|00003670| 28 32 29 3c 3e 22 22 20 | 8c 20 f2 6d 6f 64 5f 73 |(2)<>"" |. .mod_s|
|00003680| 65 6c 65 63 74 28 24 73 | 75 62 70 74 72 25 28 32 |elect($s|ubptr%(2|
|00003690| 29 29 0d 19 82 0e c9 20 | 22 55 70 64 61 74 65 22 |))..... |"Update"|
|000036a0| 0d 19 8c 13 f2 75 70 64 | 61 74 65 5f 6d 6f 64 6c |.....upd|ate_modl|
|000036b0| 69 73 74 0d 19 96 05 cb | 0d 19 a0 04 0d 19 aa 12 |ist.....|........|
|000036c0| c9 20 22 51 75 69 74 22 | 3a f2 71 75 69 74 0d 19 |. "Quit"|:.quit..|
|000036d0| b4 05 cb 0d 19 be 04 0d | 19 c8 0c c9 20 22 46 69 |........|.... "Fi|
|000036e0| 6e 64 22 0d 19 d2 04 0d | 19 dc 0c c9 20 22 43 6f |nd".....|.... "Co|
|000036f0| 64 65 22 0d 19 e6 14 c8 | 8e 20 24 73 75 62 70 74 |de".....|. $subpt|
|00003700| 72 25 28 30 29 20 ca 0d | 19 f0 0c c9 20 22 47 6f |r%(0) ..|.... "Go|
|00003710| 74 6f 22 0d 19 fa 17 e7 | 20 24 73 75 62 70 74 72 |to".....| $subptr|
|00003720| 25 28 31 29 3c 3e 22 22 | 20 8c 0d 1a 04 26 6e 25 |%(1)<>""| ....&n%|
|00003730| 3d a0 28 24 73 75 62 70 | 74 72 25 28 31 29 2b bd |=.($subp|tr%(1)+.|
|00003740| 30 29 2d 72 65 6c 6f 66 | 66 25 28 69 6e 74 25 29 |0)-relof|f%(int%)|
|00003750| 0d 1a 0e 1e e7 20 6e 25 | 3c 73 69 7a 65 25 28 69 |..... n%|<size%(i|
|00003760| 6e 74 25 29 20 80 20 6e | 25 3e 2d 31 20 8c 0d 1a |nt%) . n|%>-1 ...|
|00003770| 18 12 62 6c 6b 21 30 3d | 6d 65 6e 75 6f 77 6e 25 |..blk!0=|menuown%|
|00003780| 0d 1a 22 21 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |.."!.. "|Wimp_Get|
|00003790| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 2c 62 6c |WindowSt|ate",,bl|
|000037a0| 6b 0d 1a 2c 17 62 6c 6b | 21 32 34 3d 2d 6e 25 20 |k..,.blk|!24=-n% |
|000037b0| 81 20 34 2a 33 32 2b 38 | 0d 1a 36 1d c8 99 20 22 |. 4*32+8|..6... "|
|000037c0| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|000037d0| 2c 2c 62 6c 6b 0d 1a 40 | 05 cc 0d 1a 4a 24 f2 65 |,,blk..@|....J$.e|
|000037e0| 72 72 28 22 41 64 64 72 | 65 73 73 20 6f 75 74 20 |rr("Addr|ess out |
|000037f0| 6f 66 20 72 61 6e 67 65 | 22 2c 31 2c 30 29 0d 1a |of range|",1,0)..|
|00003800| 54 05 cd 0d 1a 5e 05 cd | 0d 1a 68 05 cb 0d 1a 72 |T....^..|..h....r|
|00003810| 04 0d 1a 7c 0c c9 20 22 | 44 61 74 61 22 0d 1a 86 |...|.. "|Data"...|
|00003820| 14 c8 8e 20 24 73 75 62 | 70 74 72 25 28 30 29 20 |... $sub|ptr%(0) |
|00003830| ca 0d 1a 90 0c c9 20 22 | 47 6f 74 6f 22 0d 1a 9a |...... "|Goto"...|
|00003840| 26 6e 25 3d a0 28 24 73 | 75 62 70 74 72 25 28 31 |&n%=.($s|ubptr%(1|
|00003850| 29 2b bd 30 29 2d 72 65 | 6c 6f 66 66 25 28 69 6e |)+.0)-re|loff%(in|
|00003860| 74 25 29 0d 1a a4 1e e7 | 20 6e 25 3c 73 69 7a 65 |t%).....| n%<size|
|00003870| 25 28 69 6e 74 25 29 20 | 80 20 6e 25 3e 2d 31 20 |%(int%) |. n%>-1 |
|00003880| 8c 0d 1a ae 12 62 6c 6b | 21 30 3d 6d 65 6e 75 6f |.....blk|!0=menuo|
|00003890| 77 6e 25 0d 1a b8 21 c8 | 99 20 22 57 69 6d 70 5f |wn%...!.|. "Wimp_|
|000038a0| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|000038b0| 2c 62 6c 6b 0d 1a c2 17 | 62 6c 6b 21 32 34 3d 2d |,blk....|blk!24=-|
|000038c0| 6e 25 20 81 31 36 2a 33 | 32 2b 38 0d 1a cc 1d c8 |n% .16*3|2+8.....|
|000038d0| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |. "Wimp_|OpenWind|
|000038e0| 6f 77 22 2c 2c 62 6c 6b | 0d 1a d6 05 cc 0d 1a e0 |ow",,blk|........|
|000038f0| 24 f2 65 72 72 28 22 41 | 64 64 72 65 73 73 20 6f |$.err("A|ddress o|
|00003900| 75 74 20 6f 66 20 72 61 | 6e 67 65 22 2c 31 2c 30 |ut of ra|nge",1,0|
|00003910| 29 0d 1a ea 05 cd 0d 1a | f4 05 cb 0d 1a fe 04 0d |).......|........|
|00003920| 1b 08 05 cb 0d 1b 12 21 | c8 99 20 22 57 69 6d 70 |.......!|.. "Wimp|
|00003930| 5f 47 65 74 50 6f 69 6e | 74 65 72 49 6e 66 6f 22 |_GetPoin|terInfo"|
|00003940| 2c 2c 62 6c 6b 0d 1b 1c | 34 e7 20 28 62 6c 6b 21 |,,blk...|4. (blk!|
|00003950| 38 20 80 31 29 3d 31 20 | 8c 20 f2 6f 70 65 6e 6d |8 .1)=1 |. .openm|
|00003960| 65 6e 75 28 6d 65 6e 75 | 68 25 2c 6d 65 6e 75 78 |enu(menu|h%,menux|
|00003970| 25 2c 6d 65 6e 75 79 25 | 29 0d 1b 26 05 e1 0d 1b |%,menuy%|)..&....|
|00003980| 30 04 0d 1b 3a 04 0d 1b | 44 0b dd f2 6c 6f 73 65 |0...:...|D...lose|
|00003990| 63 0d 1b 4e 07 ea 20 85 | 0d 1b 58 0a 65 72 72 25 |c..N.. .|..X.err%|
|000039a0| 3d a3 0d 1b 62 7f ee 20 | 85 20 ea 20 f2 65 72 72 |=...b.. |. . .err|
|000039b0| 28 f6 24 2c 31 2c 38 29 | 3a c8 99 20 22 58 57 69 |(.$,1,8)|:.. "XWi|
|000039c0| 6d 70 5f 53 65 74 43 61 | 72 65 74 50 6f 73 69 74 |mp_SetCa|retPosit|
|000039d0| 69 6f 6e 22 2c 70 6f 6c | 6c 21 30 2c 70 6f 6c 6c |ion",pol|l!0,poll|
|000039e0| 21 34 2c 70 6f 6c 6c 21 | 38 2c 70 6f 6c 6c 21 31 |!4,poll!|8,poll!1|
|000039f0| 32 2c 70 6f 6c 6c 21 31 | 36 2c 70 6f 6c 6c 21 32 |2,poll!1|6,poll!2|
|00003a00| 30 3a c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |0:.. "Wi|mp_Creat|
|00003a10| 65 4d 65 6e 75 22 2c 2c | 2d 31 3a 65 72 72 25 3d |eMenu",,|-1:err%=|
|00003a20| b9 0d 1b 6c 04 0d 1b 76 | 2c e7 20 ac 65 72 72 25 |...l...v|,. .err%|
|00003a30| 20 80 20 65 64 69 74 65 | 64 25 20 80 20 a4 69 73 | . edite|d% . .is|
|00003a40| 63 6f 64 65 28 70 6f 6c | 6c 21 30 29 3c 3e 30 20 |code(pol|l!0)<>0 |
|00003a50| 8c 0d 1b 80 0a 41 25 3d | 62 6c 6b 0d 1b 8a 20 24 |.....A%=|blk... $|
|00003a60| 41 25 3d 24 65 64 69 74 | 73 25 28 31 29 2b 24 65 |A%=$edit|s%(1)+$e|
|00003a70| 64 69 74 73 25 28 32 29 | 2b bd 30 0d 1b 94 1d 42 |dits%(2)|+.0....B|
|00003a80| 25 3d 61 62 73 6f 66 66 | 25 28 69 6e 74 25 29 2d |%=absoff|%(int%)-|
|00003a90| 65 64 69 74 79 25 2a 34 | 0d 1b 9e 1d 43 25 3d 72 |edity%*4|....C%=r|
|00003aa0| 65 6c 6f 66 66 25 28 69 | 6e 74 25 29 2d 65 64 69 |eloff%(i|nt%)-edi|
|00003ab0| 74 79 25 2a 34 0d 1b a8 | 0e d6 20 61 73 73 65 6d |ty%*4...|.. assem|
|00003ac0| 62 6c 65 0d 1b b2 16 f2 | 75 70 64 61 74 61 28 2d |ble.....|updata(-|
|00003ad0| 65 64 69 74 79 25 2a 34 | 29 0d 1b bc 18 f2 72 65 |edity%*4|).....re|
|00003ae0| 64 72 63 6f 64 65 28 2d | 65 64 69 74 79 25 2a 34 |drcode(-|edity%*4|
|00003af0| 29 0d 1b c6 05 cd 0d 1b | d0 04 0d 1b da 05 cd 0d |).......|........|
|00003b00| 1b e4 07 f7 20 85 0d 1b | ee 05 e1 0d 1b f8 04 0d |.... ...|........|
|00003b10| 1c 02 04 0d 1c 0c 0d dd | f2 6d 65 73 73 61 67 65 |........|.message|
|00003b20| 0d 1c 16 20 74 61 73 6b | 72 65 66 25 3d 70 6f 6c |... task|ref%=pol|
|00003b30| 6c 21 34 3a 72 65 66 25 | 3d 70 6f 6c 6c 21 31 32 |l!4:ref%|=poll!12|
|00003b40| 0d 1c 20 04 0d 1c 2a 10 | c8 8e 20 70 6f 6c 6c 21 |.. ...*.|.. poll!|
|00003b50| 31 36 20 ca 0d 1c 34 0d | c9 20 30 3a f2 71 75 69 |16 ...4.|. 0:.qui|
|00003b60| 74 0d 1c 3e 04 0d 1c 48 | 07 c9 20 32 0d 1c 52 1a |t..>...H|.. 2..R.|
|00003b70| f2 73 61 76 65 28 24 a4 | 74 6f 63 72 28 70 6f 6c |.save($.|tocr(pol|
|00003b80| 6c 2b 34 34 29 29 0d 1c | 5c 04 0d 1c 66 07 c9 20 |l+44))..|\...f.. |
|00003b90| 33 0d 1c 70 21 c8 99 20 | 22 57 69 6d 70 5f 47 65 |3..p!.. |"Wimp_Ge|
|00003ba0| 74 50 6f 69 6e 74 65 72 | 49 6e 66 6f 22 2c 2c 62 |tPointer|Info",,b|
|00003bb0| 6c 6b 0d 1c 7a 11 e7 20 | 70 6f 6c 6c 21 31 32 3d |lk..z.. |poll!12=|
|00003bc0| 30 20 8c 0d 1c 84 3a c8 | 99 20 22 4f 53 5f 46 69 |0 ....:.|. "OS_Fi|
|00003bd0| 6c 65 22 2c 35 2c 70 6f | 6c 6c 2b 34 34 20 b8 20 |le",5,po|ll+44 . |
|00003be0| 62 6c 6b 21 32 35 36 2c | 2c 62 6c 6b 21 32 36 30 |blk!256,|,blk!260|
|00003bf0| 2c 62 6c 6b 21 32 36 34 | 2c 6c 65 6e 25 0d 1c 8e |,blk!264|,len%...|
|00003c00| 47 e7 20 62 6c 6b 21 32 | 35 36 3d 30 20 84 20 62 |G. blk!2|56=0 . b|
|00003c10| 6c 6b 21 32 35 36 3d 32 | 20 8c 20 85 20 31 2c 22 |lk!256=2| . . 1,"|
|00003c20| 4d 6f 6e 69 74 6f 72 3a | 43 61 6e 27 74 20 6c 6f |Monitor:|Can't lo|
|00003c30| 61 64 20 27 22 2b 24 28 | 70 6f 6c 6c 2b 34 34 29 |ad '"+$(|poll+44)|
|00003c40| 2b 22 27 22 0d 1c 98 1a | f2 67 72 61 62 62 6c 6f |+"'"....|.grabblo|
|00003c50| 63 6b 28 66 62 75 66 25 | 2c 6c 65 6e 25 29 0d 1c |ck(fbuf%|,len%)..|
|00003c60| a2 04 0d 1c ac 1b e7 20 | 28 62 6c 6b 21 32 36 30 |....... |(blk!260|
|00003c70| 3e 3e 3e 32 30 29 3d 26 | 46 46 46 20 8c 0d 1c b6 |>>>20)=&|FFF ....|
|00003c80| 1b 66 74 79 70 65 25 3d | 62 6c 6b 21 32 36 30 3e |.ftype%=|blk!260>|
|00003c90| 3e 38 20 80 26 46 46 46 | 0d 1c c0 2a 24 a4 67 65 |>8 .&FFF|...*$.ge|
|00003ca0| 74 76 61 6c 28 66 69 6c | 65 69 6e 66 25 2c 30 29 |tval(fil|einf%,0)|
|00003cb0| 3d 22 53 66 69 6c 65 5f | 22 2b c3 7e 66 74 79 70 |="Sfile_|"+.~ftyp|
|00003cc0| 65 25 0d 1c ca 1f 6c 64 | 61 64 64 72 25 3d a4 67 |e%....ld|addr%=.g|
|00003cd0| 65 74 73 74 72 28 66 69 | 6c 65 69 6e 66 25 2c 36 |etstr(fi|leinf%,6|
|00003ce0| 29 0d 1c d4 48 c8 99 20 | 22 58 4f 53 5f 52 65 61 |)...H.. |"XOS_Rea|
|00003cf0| 64 56 61 72 56 61 6c 22 | 2c 22 46 69 6c 65 24 54 |dVarVal"|,"File$T|
|00003d00| 79 70 65 5f 22 2b c3 7e | 66 74 79 70 65 25 2c 6c |ype_"+.~|ftype%,l|
|00003d10| 64 61 64 64 72 25 2b 35 | 2c 38 20 b8 20 2c 2c 6c |daddr%+5|,8 . ,,l|
|00003d20| 25 2c 2c 76 25 3b 66 6c | 25 0d 1c de 15 6c 64 61 |%,,v%;fl|%....lda|
|00003d30| 64 64 72 25 3f 28 35 2b | 6c 25 29 3d 31 33 0d 1c |ddr%?(5+|l%)=13..|
|00003d40| e8 19 24 6c 64 61 64 64 | 72 25 3d 22 26 22 2b c3 |..$ldadd|r%="&"+.|
|00003d50| 7e 66 74 79 70 65 25 0d | 1c f2 3a e7 20 28 66 6c |~ftype%.|..:. (fl|
|00003d60| 25 20 80 20 31 29 3d 30 | 20 80 20 76 25 3d 30 20 |% . 1)=0| . v%=0 |
|00003d70| 8c 20 24 6c 64 61 64 64 | 72 25 2b 3d 22 20 28 22 |. $ldadd|r%+=" ("|
|00003d80| 2b 24 28 6c 64 61 64 64 | 72 25 2b 35 29 2b 22 29 |+$(ldadd|r%+5)+")|
|00003d90| 22 0d 1c fc 21 e7 20 28 | 28 62 6c 6b 21 32 36 30 |"...!. (|(blk!260|
|00003da0| 3e 3e 38 29 20 80 26 46 | 46 46 29 3d 26 46 46 38 |>>8) .&F|FF)=&FF8|
|00003db0| 20 8c 0d 1d 06 20 24 a4 | 67 65 74 73 74 72 28 66 | .... $.|getstr(f|
|00003dc0| 69 6c 65 69 6e 66 25 2c | 38 29 3d 22 26 38 30 30 |ileinf%,|8)="&800|
|00003dd0| 30 22 0d 1d 10 21 24 a4 | 67 65 74 73 74 72 28 66 |0"...!$.|getstr(f|
|00003de0| 69 6c 65 69 6e 66 25 2c | 31 30 29 3d 22 26 38 30 |ileinf%,|10)="&80|
|00003df0| 30 30 22 0d 1d 1a 05 cc | 0d 1d 24 1b 24 a4 67 65 |00".....|..$.$.ge|
|00003e00| 74 73 74 72 28 66 69 6c | 65 69 6e 66 25 2c 38 29 |tstr(fil|einf%,8)|
|00003e10| 3d 22 22 0d 1d 2e 1c 24 | a4 67 65 74 73 74 72 28 |=""....$|.getstr(|
|00003e20| 66 69 6c 65 69 6e 66 25 | 2c 31 30 29 3d 22 22 0d |fileinf%|,10)="".|
|00003e30| 1d 38 05 cd 0d 1d 42 05 | cc 0d 1d 4c 1e 24 a4 67 |.8....B.|...L.$.g|
|00003e40| 65 74 73 74 72 28 66 69 | 6c 65 69 6e 66 25 2c 36 |etstr(fi|leinf%,6|
|00003e50| 29 3d 22 78 78 78 22 0d | 1d 56 26 24 a4 67 65 74 |)="xxx".|.V&$.get|
|00003e60| 73 74 72 28 66 69 6c 65 | 69 6e 66 25 2c 38 29 3d |str(file|inf%,8)=|
|00003e70| 22 26 22 2b c3 7e 62 6c | 6b 21 32 36 30 0d 1d 60 |"&"+.~bl|k!260..`|
|00003e80| 27 24 a4 67 65 74 73 74 | 72 28 66 69 6c 65 69 6e |'$.getst|r(filein|
|00003e90| 66 25 2c 31 30 29 3d 22 | 26 22 2b c3 7e 62 6c 6b |f%,10)="|&"+.~blk|
|00003ea0| 21 32 36 34 0d 1d 6a 10 | 66 74 79 70 65 25 3d 26 |!264..j.|ftype%=&|
|00003eb0| 31 30 30 30 0d 1d 74 05 | cd 0d 1d 7e 04 0d 1d 88 |1000..t.|...~....|
|00003ec0| 15 76 25 3d a4 74 6f 63 | 72 28 70 6f 6c 6c 2b 34 |.v%=.toc|r(poll+4|
|00003ed0| 34 29 0d 1d 92 1c 24 a4 | 67 65 74 73 74 72 28 66 |4)....$.|getstr(f|
|00003ee0| 69 6c 65 69 6e 66 25 2c | 31 29 3d 24 76 25 0d 1d |ileinf%,|1)=$v%..|
|00003ef0| 9c 0d 66 69 6c 65 24 3d | 24 76 25 0d 1d a6 6f e7 |..file$=|$v%...o.|
|00003f00| 20 a9 66 69 6c 65 24 3e | 34 35 20 8c 20 f2 73 65 | .file$>|45 . .se|
|00003f10| 74 69 28 66 69 6c 65 69 | 6e 66 25 2c 31 2c 38 2c |ti(filei|nf%,1,8,|
|00003f20| 30 29 3a f2 73 65 74 69 | 28 66 69 6c 65 69 6e 66 |0):.seti|(fileinf|
|00003f30| 25 2c 31 2c 35 31 32 2c | 31 29 20 8b 20 f2 73 65 |%,1,512,|1) . .se|
|00003f40| 74 69 28 66 69 6c 65 69 | 6e 66 25 2c 31 2c 38 2c |ti(filei|nf%,1,8,|
|00003f50| 31 29 3a f2 73 65 74 69 | 28 66 69 6c 65 69 6e 66 |1):.seti|(fileinf|
|00003f60| 25 2c 31 2c 35 31 32 2c | 30 29 0d 1d b0 1e 24 a4 |%,1,512,|0)....$.|
|00003f70| 67 65 74 73 74 72 28 66 | 69 6c 65 69 6e 66 25 2c |getstr(f|ileinf%,|
|00003f80| 33 29 3d c3 6c 65 6e 25 | 0d 1d ba 23 24 a4 67 65 |3)=.len%|...#$.ge|
|00003f90| 74 73 74 72 28 66 69 6c | 65 69 6e 66 25 2c 34 29 |tstr(fil|einf%,4)|
|00003fa0| 3d 22 26 22 2b c3 7e 6c | 65 6e 25 0d 1d c4 0b 66 |="&"+.~l|en%....f|
|00003fb0| 69 6c 65 25 3d b9 0d 1d | ce 29 c8 99 20 22 4f 53 |ile%=...|.).. "OS|
|00003fc0| 5f 46 69 6c 65 22 2c 32 | 35 35 2c 70 6f 6c 6c 2b |_File",2|55,poll+|
|00003fd0| 34 34 2c 68 65 61 70 25 | 28 66 62 75 66 25 29 0d |44,heap%|(fbuf%).|
|00003fe0| 1d d8 0d 65 64 69 74 65 | 64 25 3d 30 0d 1d e2 1b |...edite|d%=0....|
|00003ff0| 61 62 73 6f 66 66 25 28 | 31 29 3d 68 65 61 70 25 |absoff%(|1)=heap%|
|00004000| 28 66 62 75 66 25 29 0d | 1d ec 12 73 69 7a 65 32 |(fbuf%).|...size2|
|00004010| 25 28 31 29 3d 6c 65 6e | 25 0d 1d f6 1a 73 69 7a |%(1)=len|%....siz|
|00004020| 65 25 28 31 29 3d 28 6c | 65 6e 25 2b 33 29 20 80 |e%(1)=(l|en%+3) .|
|00004030| 20 ac 33 0d 1e 00 0a 69 | 6e 74 25 3d 31 0d 1e 0a | .3....i|nt%=1...|
|00004040| 10 f2 63 6f 64 65 65 78 | 74 28 2d 31 29 0d 1e 14 |..codeex|t(-1)...|
|00004050| 10 f2 64 61 74 61 65 78 | 74 28 2d 31 29 0d 1e 1e |..dataex|t(-1)...|
|00004060| 10 f2 72 65 70 6c 79 28 | 31 37 2c 34 29 0d 1e 28 |..reply(|17,4)..(|
|00004070| 21 c8 99 20 22 57 69 6d | 70 5f 53 65 74 43 61 72 |!.. "Wim|p_SetCar|
|00004080| 65 74 50 6f 73 69 74 69 | 6f 6e 22 2c 2d 31 0d 1e |etPositi|on",-1..|
|00004090| 32 0c 65 64 69 74 79 25 | 3d 31 0d 1e 3c 05 cd 0d |2.edity%|=1..<...|
|000040a0| 1e 46 04 0d 1e 50 04 0d | 1e 5a 0c c9 20 26 34 30 |.F...P..|.Z.. &40|
|000040b0| 30 43 30 0d 1e 64 10 c8 | 8e 20 70 6f 6c 6c 21 32 |0C0..d..|. poll!2|
|000040c0| 30 20 ca 0d 1e 6e 04 0d | 1e 78 0c c9 20 72 65 6c |0 ...n..|.x.. rel|
|000040d0| 6f 63 25 0d 1e 82 2a 24 | a4 67 65 74 73 74 72 28 |oc%...*$|.getstr(|
|000040e0| 72 65 6c 6f 63 25 2c 34 | 29 3d 22 26 22 2b c3 7e |reloc%,4|)="&"+.~|
|000040f0| 72 65 6c 6f 66 66 25 28 | 69 6e 74 25 29 0d 1e 8c |reloff%(|int%)...|
|00004100| 38 24 a4 67 65 74 73 74 | 72 28 72 65 6c 6f 63 25 |8$.getst|r(reloc%|
|00004110| 2c 36 29 3d 22 26 22 2b | c3 7e 28 72 65 6c 6f 66 |,6)="&"+|.~(relof|
|00004120| 66 25 28 69 6e 74 25 29 | 2b 73 69 7a 65 25 28 69 |f%(int%)|+size%(i|
|00004130| 6e 74 25 29 29 0d 1e 96 | 2c 24 a4 67 65 74 73 74 |nt%))...|,$.getst|
|00004140| 72 28 72 65 6c 6f 63 25 | 2c 38 29 3d 22 26 22 2b |r(reloc%|,8)="&"+|
|00004150| c3 7e 28 72 65 6c 6f 66 | 66 25 28 69 6e 74 25 29 |.~(relof|f%(int%)|
|00004160| 29 0d 1e a0 39 24 a4 67 | 65 74 73 74 72 28 72 65 |)...9$.g|etstr(re|
|00004170| 6c 6f 63 25 2c 31 30 29 | 3d 22 26 22 2b c3 7e 28 |loc%,10)|="&"+.~(|
|00004180| 72 65 6c 6f 66 66 25 28 | 69 6e 74 25 29 2b 73 69 |reloff%(|int%)+si|
|00004190| 7a 65 25 28 69 6e 74 25 | 29 29 0d 1e aa 1b 24 a4 |ze%(int%|))....$.|
|000041a0| 67 65 74 73 74 72 28 72 | 65 6c 6f 63 25 2c 31 32 |getstr(r|eloc%,12|
|000041b0| 29 3d 22 30 22 0d 1e b4 | 05 20 0d 1e be 0b c9 20 |)="0"...|. ..... |
|000041c0| 66 6f 70 74 25 0d 1e c8 | 1f f2 73 65 74 69 28 66 |fopt%...|..seti(f|
|000041d0| 6f 70 74 25 2c 34 2c 31 | 3c 3c 32 31 2c 77 6f 72 |opt%,4,1|<<21,wor|
|000041e0| 64 66 25 29 0d 1e d2 1f | f2 73 65 74 69 28 66 6f |df%)....|.seti(fo|
|000041f0| 70 74 25 2c 35 2c 31 3c | 3c 32 31 2c 6f 66 66 73 |pt%,5,1<|<21,offs|
|00004200| 66 25 29 0d 1e dc 1f f2 | 73 65 74 69 28 66 6f 70 |f%).....|seti(fop|
|00004210| 74 25 2c 36 2c 31 3c 3c | 32 31 2c 63 61 70 73 66 |t%,6,1<<|21,capsf|
|00004220| 25 29 0d 1e e6 1f f2 73 | 65 74 69 28 66 6f 70 74 |%).....s|eti(fopt|
|00004230| 25 2c 37 2c 31 3c 3c 32 | 31 2c 62 6c 61 6e 6b 25 |%,7,1<<2|1,blank%|
|00004240| 29 0d 1e f0 04 0d 1e fa | 0b c9 20 63 6f 70 74 25 |).......|.. copt%|
|00004250| 0d 1f 04 25 66 25 3d 77 | 69 6e 73 21 28 a4 69 6e |...%f%=w|ins!(.in|
|00004260| 64 65 78 28 6d 65 6e 75 | 6f 77 6e 25 29 2a 38 2b |dex(menu|own%)*8+|
|00004270| 34 29 3e 3e 32 0d 1f 0e | 23 f2 73 65 74 69 28 63 |4)>>2...|#.seti(c|
|00004280| 6f 70 74 25 2c 33 2c 31 | 3c 3c 32 31 2c 28 66 25 |opt%,3,1|<<21,(f%|
|00004290| 20 80 20 38 29 3d 38 29 | 0d 1f 18 23 f2 73 65 74 | . 8)=8)|...#.set|
|000042a0| 69 28 63 6f 70 74 25 2c | 34 2c 31 3c 3c 32 31 2c |i(copt%,|4,1<<21,|
|000042b0| 28 66 25 20 80 20 31 29 | 3d 31 29 0d 1f 22 25 f2 |(f% . 1)|=1).."%.|
|000042c0| 73 65 74 69 28 63 6f 70 | 74 25 2c 35 2c 31 3c 3c |seti(cop|t%,5,1<<|
|000042d0| 32 31 2c 28 66 25 20 80 | 20 33 32 29 3d 33 32 29 |21,(f% .| 32)=32)|
|000042e0| 0d 1f 2c 20 f2 73 65 74 | 69 28 63 6f 70 74 25 2c |.., .set|i(copt%,|
|000042f0| 39 2c 31 3c 3c 32 31 2c | 69 6e 73 65 72 74 25 29 |9,1<<21,|insert%)|
|00004300| 0d 1f 36 25 f2 73 65 74 | 69 28 63 6f 70 74 25 2c |..6%.set|i(copt%,|
|00004310| 31 30 2c 31 3c 3c 32 31 | 2c 63 6f 64 65 69 6e 73 |10,1<<21|,codeins|
|00004320| 65 72 74 25 29 0d 1f 40 | 22 f2 73 65 74 69 28 63 |ert%)..@|".seti(c|
|00004330| 6f 70 74 25 2c 31 31 2c | 31 3c 3c 32 31 2c 63 6c |opt%,11,|1<<21,cl|
|00004340| 65 61 72 63 72 25 29 0d | 1f 4a 04 0d 1f 54 0b c9 |earcr%).|.J...T..|
|00004350| 20 64 6f 70 74 25 0d 1f | 5e 25 66 25 3d 77 69 6e | dopt%..|^%f%=win|
|00004360| 73 21 28 a4 69 6e 64 65 | 78 28 6d 65 6e 75 6f 77 |s!(.inde|x(menuow|
|00004370| 6e 25 29 2a 38 2b 34 29 | 3e 3e 32 0d 1f 68 23 f2 |n%)*8+4)|>>2..h#.|
|00004380| 73 65 74 69 28 64 6f 70 | 74 25 2c 34 2c 31 3c 3c |seti(dop|t%,4,1<<|
|00004390| 32 31 2c 28 66 25 20 80 | 20 34 29 3d 34 29 0d 1f |21,(f% .| 4)=4)..|
|000043a0| 72 23 f2 73 65 74 69 28 | 64 6f 70 74 25 2c 35 2c |r#.seti(|dopt%,5,|
|000043b0| 31 3c 3c 32 31 2c 28 66 | 25 20 80 20 32 29 3d 32 |1<<21,(f|% . 2)=2|
|000043c0| 29 0d 1f 7c 23 f2 73 65 | 74 69 28 64 6f 70 74 25 |)..|#.se|ti(dopt%|
|000043d0| 2c 36 2c 31 3c 3c 32 31 | 2c 28 66 25 20 80 20 31 |,6,1<<21|,(f% . 1|
|000043e0| 29 3d 31 29 0d 1f 86 10 | 66 25 3d 66 25 3e 3e 33 |)=1)....|f%=f%>>3|
|000043f0| 20 80 20 33 0d 1f 90 1d | f2 73 65 74 69 28 64 6f | . 3....|.seti(do|
|00004400| 70 74 25 2c 38 2c 31 3c | 3c 32 31 2c 66 25 3d 30 |pt%,8,1<|<21,f%=0|
|00004410| 29 0d 1f 9a 1d f2 73 65 | 74 69 28 64 6f 70 74 25 |).....se|ti(dopt%|
|00004420| 2c 39 2c 31 3c 3c 32 31 | 2c 66 25 3d 31 29 0d 1f |,9,1<<21|,f%=1)..|
|00004430| a4 1e f2 73 65 74 69 28 | 64 6f 70 74 25 2c 31 30 |...seti(|dopt%,10|
|00004440| 2c 31 3c 3c 32 31 2c 66 | 25 3d 32 29 0d 1f ae 04 |,1<<21,f|%=2)....|
|00004450| 0d 1f b8 0b c9 20 73 61 | 76 65 25 0d 1f c2 17 76 |..... sa|ve%....v|
|00004460| 25 3d a4 67 65 74 76 61 | 6c 28 73 61 76 65 25 2c |%=.getva|l(save%,|
|00004470| 30 29 0d 1f cc 11 c8 8e | 20 6d 65 6e 75 6f 77 6e |0)......| menuown|
|00004480| 25 20 ca 0d 1f d6 17 c9 | 20 a4 69 73 63 6f 64 65 |% ......| .iscode|
|00004490| 28 6d 65 6e 75 6f 77 6e | 25 29 0d 1f e0 65 e7 20 |(menuown|%)...e. |
|000044a0| 70 6f 6c 6c 21 33 36 3d | 30 20 8c 20 24 76 25 3d |poll!36=|0 . $v%=|
|000044b0| 22 53 66 69 6c 65 5f 78 | 78 78 22 3a 24 a4 67 65 |"Sfile_x|xx":$.ge|
|000044c0| 74 73 74 72 28 73 61 76 | 65 25 2c 31 29 3d 73 61 |tstr(sav|e%,1)=sa|
|000044d0| 76 65 43 24 20 8b 20 24 | 76 25 3d 22 53 66 69 6c |veC$ . $|v%="Sfil|
|000044e0| 65 5f 66 66 66 22 3a 24 | a4 67 65 74 73 74 72 28 |e_fff":$|.getstr(|
|000044f0| 73 61 76 65 25 2c 31 29 | 3d 73 61 76 65 54 24 0d |save%,1)|=saveT$.|
|00004500| 1f ea 04 0d 1f f4 08 c9 | 20 2d 32 0d 1f fe 14 e7 |........| -2.....|
|00004510| 20 66 74 79 70 65 25 3d | 26 31 30 30 30 20 8c 0d | ftype%=|&1000 ..|
|00004520| 20 08 13 24 76 25 3d 22 | 53 66 69 6c 65 5f 78 78 | ..$v%="|Sfile_xx|
|00004530| 78 22 0d 20 12 05 cc 0d | 20 1c 19 24 76 25 3d 22 |x". ....| ..$v%="|
|00004540| 53 66 69 6c 65 5f 22 2b | c3 7e 66 74 79 70 65 25 |Sfile_"+|.~ftype%|
|00004550| 0d 20 26 05 cd 0d 20 30 | 1b 24 a4 67 65 74 73 74 |. &... 0|.$.getst|
|00004560| 72 28 73 61 76 65 25 2c | 31 29 3d 66 69 6c 65 24 |r(save%,|1)=file$|
|00004570| 0d 20 3a 05 cb 0d 20 44 | 05 cb 0d 20 4e 04 0d 20 |. :... D|... N.. |
|00004580| 58 34 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |X4.. "Wi|mp_Creat|
|00004590| 65 53 75 62 4d 65 6e 75 | 22 2c 2c 70 6f 6c 6c 21 |eSubMenu|",,poll!|
|000045a0| 32 30 2c 70 6f 6c 6c 21 | 32 34 2c 70 6f 6c 6c 21 |20,poll!|24,poll!|
|000045b0| 32 38 0d 20 62 05 cb 0d | 20 6c 05 e1 0d 20 76 04 |28. b...| l... v.|
|000045c0| 0d 20 80 04 0d 20 8a 18 | dd f2 6f 70 65 6e 6d 65 |. ... ..|..openme|
|000045d0| 6e 75 28 68 25 2c 78 25 | 2c 79 25 29 0d 20 94 18 |nu(h%,x%|,y%). ..|
|000045e0| e7 20 68 25 3c 3e 2d 31 | 20 8c 20 6d 65 6e 75 68 |. h%<>-1| . menuh|
|000045f0| 25 3d 68 25 0d 20 9e 17 | 6d 65 6e 75 78 25 3d 78 |%=h%. ..|menux%=x|
|00004600| 25 3a 6d 65 6e 75 79 25 | 3d 79 25 0d 20 a8 1a f2 |%:menuy%|=y%. ...|
|00004610| 67 72 65 79 28 30 2c 22 | 46 69 6c 65 22 2c ac 66 |grey(0,"|File",.f|
|00004620| 69 6c 65 25 29 0d 20 b2 | 23 f2 73 65 74 69 28 74 |ile%). .|#.seti(t|
|00004630| 65 78 74 25 2c 31 2c 31 | 3c 3c 32 32 2c 66 69 6e |ext%,1,1|<<22,fin|
|00004640| 64 70 74 72 25 3d 30 29 | 0d 20 bc 11 e3 20 69 63 |dptr%=0)|. ... ic|
|00004650| 6f 6e 25 3d 31 20 b8 20 | 35 0d 20 c6 38 f2 73 65 |on%=1 . |5. .8.se|
|00004660| 74 69 28 67 72 6f 75 70 | 25 28 69 63 6f 6e 25 29 |ti(group|%(icon%)|
|00004670| 2c 66 69 6e 64 69 25 28 | 69 63 6f 6e 25 29 2b 31 |,findi%(|icon%)+1|
|00004680| 2c 31 3c 3c 32 32 2c 74 | 61 62 70 74 72 25 3d 30 |,1<<22,t|abptr%=0|
|00004690| 29 0d 20 d0 05 ed 0d 20 | da 2a f2 73 65 74 69 28 |). .... |.*.seti(|
|000046a0| 65 6e 76 25 2c 31 2c 31 | 3c 3c 32 32 2c 68 65 61 |env%,1,1|<<22,hea|
|000046b0| 70 73 69 7a 65 25 28 66 | 62 75 66 25 29 3d 30 29 |psize%(f|buf%)=0)|
|000046c0| 0d 20 e4 1c f2 73 65 74 | 69 28 65 6e 76 25 2c 31 |. ...set|i(env%,1|
|000046d0| 2c 31 3c 3c 32 31 2c 69 | 6e 74 25 29 0d 20 ee 20 |,1<<21,i|nt%). . |
|000046e0| f2 73 65 74 69 28 65 6e | 76 25 2c 32 2c 31 3c 3c |.seti(en|v%,2,1<<|
|000046f0| 32 31 2c 69 6e 74 25 20 | 82 20 31 29 0d 20 f8 12 |21,int% |. 1). ..|
|00004700| e3 20 69 63 6f 6e 25 3d | 37 20 b8 20 31 30 0d 21 |. icon%=|7 . 10.!|
|00004710| 02 20 f2 73 65 74 69 28 | 65 6e 76 25 2c 69 63 6f |. .seti(|env%,ico|
|00004720| 6e 25 2c 31 3c 3c 32 32 | 2c 69 6e 74 25 29 0d 21 |n%,1<<22|,int%).!|
|00004730| 0c 05 ed 0d 21 16 1f f2 | 75 70 64 61 74 65 65 6e |....!...|updateen|
|00004740| 76 28 34 2c 72 65 6c 6f | 66 66 25 28 69 6e 74 25 |v(4,relo|ff%(int%|
|00004750| 29 29 0d 21 20 36 f2 75 | 70 64 61 74 65 65 6e 76 |)).! 6.u|pdateenv|
|00004760| 28 36 2c 28 73 69 7a 65 | 32 25 28 69 6e 74 25 29 |(6,(size|2%(int%)|
|00004770| 2b 72 65 6c 6f 66 66 25 | 28 69 6e 74 25 29 29 20 |+reloff%|(int%)) |
|00004780| 80 20 6d 65 6d 63 25 29 | 0d 21 2a 1f f2 75 70 64 |. memc%)|.!*..upd|
|00004790| 61 74 65 65 6e 76 28 38 | 2c 61 62 73 6f 66 66 25 |ateenv(8|,absoff%|
|000047a0| 28 69 6e 74 25 29 29 0d | 21 34 37 f2 75 70 64 61 |(int%)).|!47.upda|
|000047b0| 74 65 65 6e 76 28 31 30 | 2c 28 73 69 7a 65 32 25 |teenv(10|,(size2%|
|000047c0| 28 69 6e 74 25 29 2b 61 | 62 73 6f 66 66 25 28 69 |(int%)+a|bsoff%(i|
|000047d0| 6e 74 25 29 29 20 80 20 | 6d 65 6d 63 25 29 0d 21 |nt%)) . |memc%).!|
|000047e0| 3e 1f f2 75 70 64 61 74 | 65 65 6e 76 28 31 32 2c |>..updat|eenv(12,|
|000047f0| 73 69 7a 65 32 25 28 69 | 6e 74 25 29 29 0d 21 48 |size2%(i|nt%)).!H|
|00004800| 39 e7 20 68 25 3c 3e 2d | 31 20 8c 20 c8 99 20 22 |9. h%<>-|1 . .. "|
|00004810| 57 69 6d 70 5f 43 72 65 | 61 74 65 4d 65 6e 75 22 |Wimp_Cre|ateMenu"|
|00004820| 2c 2c 6d 65 6e 75 68 25 | 2c 6d 65 6e 75 78 25 2c |,,menuh%|,menux%,|
|00004830| 6d 65 6e 75 79 25 0d 21 | 52 05 e1 0d 21 5c 04 0d |menuy%.!|R...!\..|
|00004840| 21 66 04 0d 21 70 19 dd | f2 75 70 64 61 74 65 65 |!f..!p..|.updatee|
|00004850| 6e 76 28 69 63 25 2c 76 | 61 6c 25 29 0d 21 7a 26 |nv(ic%,v|al%).!z&|
|00004860| e7 20 24 a4 67 65 74 73 | 74 72 28 65 6e 76 25 2c |. $.gets|tr(env%,|
|00004870| 69 63 25 29 3c 3e 22 26 | 22 2b c3 7e 76 61 6c 25 |ic%)<>"&|"+.~val%|
|00004880| 20 8c 0d 21 84 21 24 a4 | 67 65 74 73 74 72 28 65 | ..!.!$.|getstr(e|
|00004890| 6e 76 25 2c 69 63 25 29 | 3d 22 26 22 2b c3 7e 76 |nv%,ic%)|="&"+.~v|
|000048a0| 61 6c 25 0d 21 8e 17 f2 | 73 65 74 69 28 65 6e 76 |al%.!...|seti(env|
|000048b0| 25 2c 69 63 25 2c 30 2c | 30 29 0d 21 98 05 cd 0d |%,ic%,0,|0).!....|
|000048c0| 21 a2 05 e1 0d 21 ac 04 | 0d 21 b6 04 0d 21 c0 1e |!....!..|.!...!..|
|000048d0| dd f2 74 69 63 6b 28 68 | 25 2c 24 28 62 6c 6b 2b |..tick(h|%,$(blk+|
|000048e0| 35 31 32 29 2c 73 65 74 | 25 29 0d 21 ca 13 70 74 |512),set|%).!..pt|
|000048f0| 72 25 3d 6d 68 25 28 68 | 25 29 2b 32 38 0d 21 d4 |r%=mh%(h|%)+28.!.|
|00004900| 05 f5 0d 21 de 38 e7 20 | 28 70 74 72 25 21 38 20 |...!.8. |(ptr%!8 |
|00004910| 80 20 32 35 36 29 3d 32 | 35 36 20 8c 20 70 74 72 |. 256)=2|56 . ptr|
|00004920| 32 25 3d 70 74 72 25 21 | 31 32 20 8b 20 70 74 72 |2%=ptr%!|12 . ptr|
|00004930| 32 25 3d 70 74 72 25 2b | 31 32 0d 21 e8 0c 70 74 |2%=ptr%+|12.!..pt|
|00004940| 72 25 2b 3d 32 34 0d 21 | f2 17 fd 20 24 70 74 72 |r%+=24.!|... $ptr|
|00004950| 32 25 3d 24 28 62 6c 6b | 2b 35 31 32 29 0d 21 fc |2%=$(blk|+512).!.|
|00004960| 0c 70 74 72 25 2d 3d 32 | 34 0d 22 06 23 70 74 72 |.ptr%-=2|4.".#ptr|
|00004970| 25 21 30 3d 70 74 72 25 | 21 30 20 80 20 ac 31 20 |%!0=ptr%|!0 . .1 |
|00004980| 84 20 2d 28 73 65 74 25 | 3c 3e 30 29 0d 22 10 05 |. -(set%|<>0)."..|
|00004990| e1 0d 22 1a 04 0d 22 24 | 04 0d 22 2e 1e dd f2 67 |.."..."$|.."....g|
|000049a0| 72 65 79 28 68 25 2c 24 | 28 62 6c 6b 2b 35 31 32 |rey(h%,$|(blk+512|
|000049b0| 29 2c 73 65 74 25 29 0d | 22 38 13 70 74 72 25 3d |),set%).|"8.ptr%=|
|000049c0| 6d 68 25 28 68 25 29 2b | 32 38 0d 22 42 05 f5 0d |mh%(h%)+|28."B...|
|000049d0| 22 4c 38 e7 20 28 70 74 | 72 25 21 38 20 80 20 32 |"L8. (pt|r%!8 . 2|
|000049e0| 35 36 29 3d 32 35 36 20 | 8c 20 70 74 72 32 25 3d |56)=256 |. ptr2%=|
|000049f0| 70 74 72 25 21 31 32 20 | 8b 20 70 74 72 32 25 3d |ptr%!12 |. ptr2%=|
|00004a00| 70 74 72 25 2b 31 32 0d | 22 56 0c 70 74 72 25 2b |ptr%+12.|"V.ptr%+|
|00004a10| 3d 32 34 0d 22 60 17 fd | 20 24 70 74 72 32 25 3d |=24."`..| $ptr2%=|
|00004a20| 24 28 62 6c 6b 2b 35 31 | 32 29 0d 22 6a 0c 70 74 |$(blk+51|2)."j.pt|
|00004a30| 72 25 2d 3d 32 34 0d 22 | 74 2d 70 74 72 25 21 38 |r%-=24."|t-ptr%!8|
|00004a40| 3d 70 74 72 25 21 38 20 | 80 20 ac 28 31 3c 3c 32 |=ptr%!8 |. .(1<<2|
|00004a50| 32 29 20 84 20 2d 28 73 | 65 74 25 3c 3e 30 29 3c |2) . -(s|et%<>0)<|
|00004a60| 3c 32 32 0d 22 7e 05 e1 | 0d 22 88 04 0d 22 92 04 |<22."~..|."..."..|
|00004a70| 0d 22 9c 17 dd f2 65 72 | 72 28 65 72 72 24 2c 62 |."....er|r(err$,b|
|00004a80| 25 2c 65 72 72 25 29 0d | 22 a6 10 e7 20 69 6e 65 |%,err%).|"... ine|
|00004a90| 72 72 25 20 8c 20 e0 0d | 22 b0 0c 69 6e 65 72 72 |rr% . ..|"..inerr|
|00004aa0| 25 3d b9 0d 22 ba 04 0d | 22 c4 2e e7 20 c0 65 72 |%=.."...|"... .er|
|00004ab0| 72 24 2c 38 29 3d 22 4d | 6f 6e 69 74 6f 72 3a 22 |r$,8)="M|onitor:"|
|00004ac0| 20 8c 20 65 72 72 24 3d | c1 65 72 72 24 2c 39 29 | . err$=|.err$,9)|
|00004ad0| 3a 62 25 3d 31 0d 22 ce | 0b c8 8e 20 62 25 20 ca |:b%=1.".|... b% .|
|00004ae0| 0d 22 d8 3f c9 20 32 3a | 65 72 72 24 3d 22 46 61 |.".?. 2:|err$="Fa|
|00004af0| 74 61 6c 20 65 72 72 6f | 72 3a 20 22 2b 65 72 72 |tal erro|r: "+err|
|00004b00| 24 2b 22 20 2d 20 22 2b | 24 74 61 73 6b 2b 22 20 |$+" - "+|$task+" |
|00004b10| 69 73 20 74 65 72 6d 69 | 6e 61 74 69 6e 67 22 0d |is termi|nating".|
|00004b20| 22 e2 23 c9 20 33 3a 65 | 72 72 24 2b 3d 22 20 2d |".#. 3:e|rr$+=" -|
|00004b30| 20 28 43 61 6e 63 65 6c | 20 74 6f 20 71 75 69 74 | (Cancel| to quit|
|00004b40| 29 22 0d 22 ec 05 cb 0d | 22 f6 4a 65 72 72 24 3d |)"."....|".Jerr$=|
|00004b50| bd 28 65 72 72 25 20 80 | 20 26 46 46 29 2b bd 28 |.(err% .| &FF)+.(|
|00004b60| 65 72 72 25 3e 3e 38 20 | 80 20 26 46 46 29 2b bd |err%>>8 |. &FF)+.|
|00004b70| 28 65 72 72 25 3e 3e 31 | 36 20 80 20 26 46 46 29 |(err%>>1|6 . &FF)|
|00004b80| 2b bd 28 65 72 72 25 3e | 3e 32 34 29 2b 65 72 72 |+.(err%>|>24)+err|
|00004b90| 24 0d 23 00 2d c8 99 20 | 22 57 69 6d 70 5f 52 65 |$.#.-.. |"Wimp_Re|
|00004ba0| 70 6f 72 74 45 72 72 6f | 72 22 2c 65 72 72 24 2c |portErro|r",err$,|
|00004bb0| 62 25 2c 24 74 61 73 6b | 20 b8 20 2c 61 25 0d 23 |b%,$task| . ,a%.#|
|00004bc0| 0a 12 61 25 3d 61 25 20 | 80 20 62 25 20 80 20 31 |..a%=a% |. b% . 1|
|00004bd0| 0d 23 14 29 e7 20 61 25 | 3d 30 20 8c 20 c8 99 20 |.#.). a%|=0 . .. |
|00004be0| 22 57 69 6d 70 5f 43 6c | 6f 73 65 44 6f 77 6e 22 |"Wimp_Cl|oseDown"|
|00004bf0| 2c 2c 74 61 73 6b 25 3a | e0 0d 23 1e 0c 69 6e 65 |,,task%:|..#..ine|
|00004c00| 72 72 25 3d a3 0d 23 28 | 05 e1 0d 23 32 04 0d 23 |rr%=..#(|...#2..#|
|00004c10| 3c 04 0d 23 46 0a dd f2 | 71 75 69 74 0d 23 50 1e |<..#F...|quit.#P.|
|00004c20| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 44 6f |.. "Wimp|_CloseDo|
|00004c30| 77 6e 22 2c 2c 74 61 73 | 6b 25 0d 23 5a 05 e0 0d |wn",,tas|k%.#Z...|
|00004c40| 23 64 04 0d 23 6e 04 0d | 23 78 1c dd f2 63 72 6d |#d..#n..|#x...crm|
|00004c50| 65 6e 75 28 6d 68 25 2c | 24 28 62 6c 6b 2b 32 35 |enu(mh%,|$(blk+25|
|00004c60| 36 29 29 0d 23 82 29 69 | 74 65 6d 3d 62 6c 6b 2b |6)).#.)i|tem=blk+|
|00004c70| 35 31 32 3a 76 61 6c 3d | 69 74 65 6d 2b 32 35 36 |512:val=|item+256|
|00004c80| 3a 6b 65 79 3d 76 61 6c | 2b 32 34 30 0d 23 8c 2e |:key=val|+240.#..|
|00004c90| 24 69 74 65 6d 3d c0 c0 | 24 28 62 6c 6b 2b 32 35 |$item=..|$(blk+25|
|00004ca0| 36 29 2c a7 24 28 62 6c | 6b 2b 32 35 36 29 2c 22 |6),.$(bl|k+256),"|
|00004cb0| 2f 22 29 2d 31 29 2c 31 | 32 29 0d 23 96 0f 6d 61 |/")-1),1|2).#..ma|
|00004cc0| 78 25 3d a9 24 69 74 65 | 6d 0d 23 a0 10 24 6d 65 |x%=.$ite|m.#..$me|
|00004cd0| 6e 75 25 3d 24 69 74 65 | 6d 0d 23 aa 24 24 28 62 |nu%=$ite|m.#.$$(b|
|00004ce0| 6c 6b 2b 32 35 36 29 3d | c1 24 28 62 6c 6b 2b 32 |lk+256)=|.$(blk+2|
|00004cf0| 35 36 29 2c a9 24 69 74 | 65 6d 2b 32 29 0d 23 b4 |56),.$it|em+2).#.|
|00004d00| 04 0d 23 be 0e 6d 65 6e | 75 25 3f 31 32 3d 37 0d |..#..men|u%?12=7.|
|00004d10| 23 c8 0e 6d 65 6e 75 25 | 3f 31 33 3d 32 0d 23 d2 |#..menu%|?13=2.#.|
|00004d20| 0e 6d 65 6e 75 25 3f 31 | 34 3d 37 0d 23 dc 0e 6d |.menu%?1|4=7.#..m|
|00004d30| 65 6e 75 25 3f 31 35 3d | 30 0d 23 e6 10 6d 65 6e |enu%?15=|0.#..men|
|00004d40| 75 25 21 31 36 3d 31 37 | 32 0d 23 f0 0f 6d 65 6e |u%!16=17|2.#..men|
|00004d50| 75 25 21 32 30 3d 34 34 | 0d 23 fa 0e 6d 65 6e 75 |u%!20=44|.#..menu|
|00004d60| 25 21 32 34 3d 30 0d 24 | 04 11 e3 20 70 61 73 73 |%!24=0.$|... pass|
|00004d70| 25 3d 30 20 b8 20 31 0d | 24 0e 13 24 62 6c 6b 3d |%=0 . 1.|$..$blk=|
|00004d80| 24 28 62 6c 6b 2b 32 35 | 36 29 0d 24 18 11 70 74 |$(blk+25|6).$..pt|
|00004d90| 72 25 3d 6d 65 6e 75 25 | 2b 32 38 0d 24 22 0d 64 |r%=menu%|+28.$".d|
|00004da0| 6f 74 74 65 64 25 3d 30 | 0d 24 2c 10 6d 65 6e 75 |otted%=0|.$,.menu|
|00004db0| 69 74 65 6d 73 25 3d 30 | 0d 24 36 05 f5 0d 24 40 |items%=0|.$6...$@|
|00004dc0| 11 6d 65 6e 75 69 74 65 | 6d 73 25 2b 3d 31 0d 24 |.menuite|ms%+=1.$|
|00004dd0| 4a 2c 67 72 65 79 25 3d | 30 3a 74 69 63 6b 25 3d |J,grey%=|0:tick%=|
|00004de0| 30 3a 64 6f 74 25 3d 30 | 3a 77 72 69 74 65 25 3d |0:dot%=0|:write%=|
|00004df0| 30 3a 73 6d 72 65 71 25 | 3d 30 0d 24 54 28 76 61 |0:smreq%|=0.$T(va|
|00004e00| 6c 69 64 61 74 65 25 3d | 30 3a 73 75 62 25 3d 2d |lidate%=|0:sub%=-|
|00004e10| 31 3a 63 65 6e 74 72 65 | 25 3d 30 3a 6b 65 79 25 |1:centre|%=0:key%|
|00004e20| 3d 30 0d 24 5e 04 0d 24 | 68 05 f5 0d 24 72 09 54 |=0.$^..$|h...$r.T|
|00004e30| 25 2b 3d 31 0d 24 7c 40 | e7 20 70 74 72 25 2d 6d |%+=1.$|@|. ptr%-m|
|00004e40| 65 6e 75 3e 6d 65 6e 75 | 73 69 7a 65 25 2d 32 34 |enu>menu|size%-24|
|00004e50| 20 8c 20 f2 65 72 72 28 | 22 4e 6f 74 20 65 6e 6f | . .err(|"Not eno|
|00004e60| 75 67 68 20 6d 65 6e 75 | 20 73 70 61 63 65 22 2c |ugh menu| space",|
|00004e70| 32 2c 30 29 0d 24 86 0c | 66 6f 75 6e 64 25 3d a3 |2,0).$..|found%=.|
|00004e80| 0d 24 90 16 e7 20 c1 24 | 62 6c 6b 2c 32 2c 31 29 |.$... .$|blk,2,1)|
|00004e90| 3d 22 2c 22 20 8c 0d 24 | 9a 1a 24 62 6c 6b 3d c0 |="," ..$|..$blk=.|
|00004ea0| 24 62 6c 6b 2c 31 29 2b | c1 24 62 6c 6b 2c 33 29 |$blk,1)+|.$blk,3)|
|00004eb0| 0d 24 a4 11 c8 8e 20 bd | 28 62 6c 6b 3f 30 29 20 |.$.... .|(blk?0) |
|00004ec0| ca 0d 24 ae 18 c9 20 22 | 72 22 3a 73 6d 72 65 71 |..$... "|r":smreq|
|00004ed0| 25 3d 31 3a f2 6e 65 78 | 74 0d 24 b8 1b c9 20 22 |%=1:.nex|t.$... "|
|00004ee0| 67 22 3a 67 72 65 79 25 | 3d 31 3c 3c 32 32 3a f2 |g":grey%|=1<<22:.|
|00004ef0| 6e 65 78 74 0d 24 c2 17 | c9 20 22 74 22 3a 74 69 |next.$..|. "t":ti|
|00004f00| 63 6b 25 3d 31 3a f2 6e | 65 78 74 0d 24 cc 21 c9 |ck%=1:.n|ext.$.!.|
|00004f10| 20 22 64 22 3a 64 6f 74 | 25 3d 32 3a 64 6f 74 74 | "d":dot|%=2:dott|
|00004f20| 65 64 25 2b 3d 31 3a f2 | 6e 65 78 74 0d 24 d6 19 |ed%+=1:.|next.$..|
|00004f30| c9 20 22 63 22 3a 63 65 | 6e 74 72 65 25 3d 31 3a |. "c":ce|ntre%=1:|
|00004f40| f2 6e 65 78 74 0d 24 e0 | 09 c9 20 22 6b 22 0d 24 |.next.$.|.. "k".$|
|00004f50| ea 09 f2 6e 65 78 74 0d | 24 f4 0b 24 6b 65 79 3d |...next.|$..$key=|
|00004f60| 22 22 0d 24 fe 16 c8 95 | 20 c1 24 62 6c 6b 2c 31 |"".$....| .$blk,1|
|00004f70| 2c 31 29 3c 3e 22 2c 22 | 0d 25 08 14 24 6b 65 79 |,1)<>","|.%..$key|
|00004f80| 2b 3d c1 24 62 6c 6b 2c | 31 2c 31 29 0d 25 12 09 |+=.$blk,|1,1).%..|
|00004f90| f2 6e 65 78 74 0d 25 1c | 05 ce 0d 25 26 09 f2 6e |.next.%.|...%&..n|
|00004fa0| 65 78 74 0d 25 30 0a 6b | 65 79 25 3d 31 0d 25 3a |ext.%0.k|ey%=1.%:|
|00004fb0| 04 0d 25 44 09 c9 20 22 | 73 22 0d 25 4e 09 f2 6e |..%D.. "|s".%N..n|
|00004fc0| 65 78 74 0d 25 58 0c 24 | 69 74 65 6d 3d 22 22 0d |ext.%X.$|item="".|
|00004fd0| 25 62 21 c8 95 20 c1 24 | 62 6c 6b 2c 31 2c 31 29 |%b!.. .$|blk,1,1)|
|00004fe0| 3c 3e 22 2c 22 20 80 20 | 24 62 6c 6b 3c 3e 22 22 |<>"," . |$blk<>""|
|00004ff0| 0d 25 6c 15 24 69 74 65 | 6d 2b 3d c1 24 62 6c 6b |.%l.$ite|m+=.$blk|
|00005000| 2c 31 2c 31 29 0d 25 76 | 09 f2 6e 65 78 74 0d 25 |,1,1).%v|..next.%|
|00005010| 80 05 ce 0d 25 8a 09 f2 | 6e 65 78 74 0d 25 94 14 |....%...|next.%..|
|00005020| 73 75 62 25 3d a0 28 24 | 69 74 65 6d 2b bd 30 29 |sub%=.($|item+.0)|
|00005030| 0d 25 9e 22 e7 20 73 75 | 62 25 3d bb 24 69 74 65 |.%.". su|b%=.$ite|
|00005040| 6d 20 8c 20 73 75 62 25 | 3d 6d 68 25 28 73 75 62 |m . sub%|=mh%(sub|
|00005050| 25 29 0d 25 a8 04 0d 25 | b2 09 c9 20 22 76 22 0d |%).%...%|... "v".|
|00005060| 25 bc 15 76 61 6c 69 64 | 61 74 65 25 3d 31 3a f2 |%..valid|ate%=1:.|
|00005070| 6e 65 78 74 0d 25 c6 0b | 24 76 61 6c 3d 22 22 0d |next.%..|$val="".|
|00005080| 25 d0 21 c8 95 20 c1 24 | 62 6c 6b 2c 31 2c 31 29 |%.!.. .$|blk,1,1)|
|00005090| 3c 3e 22 2c 22 20 80 20 | 24 62 6c 6b 3c 3e 22 22 |<>"," . |$blk<>""|
|000050a0| 0d 25 da 14 24 76 61 6c | 2b 3d c1 24 62 6c 6b 2c |.%..$val|+=.$blk,|
|000050b0| 31 2c 31 29 0d 25 e4 09 | f2 6e 65 78 74 0d 25 ee |1,1).%..|.next.%.|
|000050c0| 05 ce 0d 25 f8 09 f2 6e | 65 78 74 0d 26 02 04 0d |...%...n|ext.&...|
|000050d0| 26 0c 18 c9 20 22 77 22 | 3a 77 72 69 74 65 25 3d |&... "w"|:write%=|
|000050e0| 31 3a f2 6e 65 78 74 0d | 26 16 0c 24 69 74 65 6d |1:.next.|&..$item|
|000050f0| 3d 22 22 0d 26 20 21 c8 | 95 20 c1 24 62 6c 6b 2c |="".& !.|. .$blk,|
|00005100| 31 2c 31 29 3c 3e 22 2c | 22 20 80 20 24 62 6c 6b |1,1)<>",|" . $blk|
|00005110| 3c 3e 22 22 0d 26 2a 15 | 24 69 74 65 6d 2b 3d c1 |<>"".&*.|$item+=.|
|00005120| 24 62 6c 6b 2c 31 2c 31 | 29 0d 26 34 09 f2 6e 65 |$blk,1,1|).&4..ne|
|00005130| 78 74 0d 26 3e 05 ce 0d | 26 48 09 f2 6e 65 78 74 |xt.&>...|&H..next|
|00005140| 0d 26 52 14 77 72 69 74 | 65 6c 65 6e 25 3d bb 24 |.&R.writ|elen%=.$|
|00005150| 69 74 65 6d 0d 26 5c 04 | 0d 26 66 05 cb 0d 26 70 |item.&\.|.&f...&p|
|00005160| 04 0d 26 7a 05 cd 0d 26 | 84 0e fd 20 66 6f 75 6e |..&z...&|... foun|
|00005170| 64 25 3d a3 0d 26 8e 04 | 0d 26 98 1d 24 69 74 65 |d%=..&..|.&..$ite|
|00005180| 6d 3d c0 24 62 6c 6b 2c | a7 24 62 6c 6b 2c 22 2f |m=.$blk,|.$blk,"/|
|00005190| 22 29 2d 31 29 0d 26 a2 | 38 e7 20 6b 65 79 25 20 |")-1).&.|8. key% |
|000051a0| 8c 20 24 69 74 65 6d 2b | 3d c4 6d 61 78 25 2d a9 |. $item+|=.max%-.|
|000051b0| 24 69 74 65 6d 2d a9 24 | 6b 65 79 2d 31 2c bd 31 |$item-.$|key-1,.1|
|000051c0| 36 30 29 2b bd 31 36 30 | 2b 24 6b 65 79 0d 26 ac |60)+.160|+$key.&.|
|000051d0| 04 0d 26 b6 0f e7 20 70 | 61 73 73 25 3d 30 20 8c |..&... p|ass%=0 .|
|000051e0| 0d 26 c0 29 e7 a9 24 69 | 74 65 6d 3e 6d 61 78 25 |.&.)..$i|tem>max%|
|000051f0| 20 80 20 77 72 69 74 65 | 25 3d 30 20 8c 20 6d 61 | . write|%=0 . ma|
|00005200| 78 25 3d a9 24 69 74 65 | 6d 0d 26 ca 1c 24 62 6c |x%=.$ite|m.&..$bl|
|00005210| 6b 3d c1 24 62 6c 6b 2c | a7 24 62 6c 6b 2c 22 2f |k=.$blk,|.$blk,"/|
|00005220| 22 29 2b 31 29 0d 26 d4 | 05 cc 0d 26 de 26 e7 20 |")+1).&.|...&.&. |
|00005230| 77 72 69 74 65 25 20 84 | 20 a9 24 69 74 65 6d 3e |write% .| .$item>|
|00005240| 31 32 20 84 20 76 61 6c | 69 64 61 74 65 25 20 8c |12 . val|idate% .|
|00005250| 0d 26 e8 21 e7 20 77 72 | 69 74 65 25 3d 30 20 8c |.&.!. wr|ite%=0 .|
|00005260| 20 77 72 69 74 65 6c 65 | 6e 25 3d a9 24 69 74 65 | writele|n%=.$ite|
|00005270| 6d 0d 26 f2 13 70 74 72 | 25 21 31 32 3d 73 74 72 |m.&..ptr|%!12=str|
|00005280| 69 6e 67 25 0d 26 fc 0e | f2 77 73 28 24 69 74 65 |ing%.&..|.ws($ite|
|00005290| 6d 29 0d 27 06 17 70 74 | 72 25 21 32 30 3d 77 72 |m).'..pt|r%!20=wr|
|000052a0| 69 74 65 6c 65 6e 25 2b | 31 0d 27 10 23 73 74 72 |itelen%+|1.'.#str|
|000052b0| 69 6e 67 25 2b 3d 77 72 | 69 74 65 6c 65 6e 25 2b |ing%+=wr|itelen%+|
|000052c0| 31 2d 28 a9 24 69 74 65 | 6d 2b 31 29 0d 27 1a 38 |1-(.$ite|m+1).'.8|
|000052d0| e7 20 76 61 6c 69 64 61 | 74 65 25 20 8c 20 70 74 |. valida|te% . pt|
|000052e0| 72 25 21 31 36 3d 73 74 | 72 69 6e 67 25 3a f2 77 |r%!16=st|ring%:.w|
|000052f0| 73 28 24 76 61 6c 29 20 | 8b 20 70 74 72 25 21 31 |s($val) |. ptr%!1|
|00005300| 36 3d 2d 31 0d 27 24 2a | e7 20 a9 24 69 74 65 6d |6=-1.'$*|. .$item|
|00005310| 3e 6d 61 78 25 20 80 20 | 77 72 69 74 65 25 3d 30 |>max% . |write%=0|
|00005320| 20 8c 20 6d 61 78 25 3d | a9 24 69 74 65 6d 0d 27 | . max%=|.$item.'|
|00005330| 2e 0f 69 6e 64 69 72 65 | 63 74 25 3d 31 0d 27 38 |..indire|ct%=1.'8|
|00005340| 04 0d 27 42 05 cc 0d 27 | 4c 14 24 28 70 74 72 25 |..'B...'|L.$(ptr%|
|00005350| 2b 31 32 29 3d 24 69 74 | 65 6d 0d 27 56 1f e7 20 |+12)=$it|em.'V.. |
|00005360| a9 24 69 74 65 6d 3e 6d | 61 78 25 20 8c 20 6d 61 |.$item>m|ax% . ma|
|00005370| 78 25 3d a9 24 69 74 65 | 6d 0d 27 60 0f 69 6e 64 |x%=.$ite|m.'`.ind|
|00005380| 69 72 65 63 74 25 3d 30 | 0d 27 6a 05 cd 0d 27 74 |irect%=0|.'j...'t|
|00005390| 04 0d 27 7e 1c 24 62 6c | 6b 3d c1 24 62 6c 6b 2c |..'~.$bl|k=.$blk,|
|000053a0| a7 24 62 6c 6b 2c 22 2f | 22 29 2b 31 29 0d 27 88 |.$blk,"/|")+1).'.|
|000053b0| 43 70 74 72 25 21 30 3d | 74 69 63 6b 25 20 84 20 |Cptr%!0=|tick% . |
|000053c0| 64 6f 74 25 20 84 20 77 | 72 69 74 65 25 3c 3c 32 |dot% . w|rite%<<2|
|000053d0| 20 84 20 28 26 38 30 20 | 80 20 28 24 62 6c 6b 3d | . (&80 |. ($blk=|
|000053e0| 22 22 29 29 20 84 20 73 | 6d 72 65 71 25 3c 3c 33 |"")) . s|mreq%<<3|
|000053f0| 0d 27 92 0f 70 74 72 25 | 21 34 3d 73 75 62 25 0d |.'..ptr%|!4=sub%.|
|00005400| 27 9c 56 70 74 72 25 21 | 38 3d 67 72 65 79 25 20 |'.Vptr%!|8=grey% |
|00005410| 84 20 28 69 6e 64 69 72 | 65 63 74 25 20 84 20 76 |. (indir|ect% . v|
|00005420| 61 6c 69 64 61 74 65 25 | 29 3c 3c 38 20 84 20 26 |alidate%|)<<8 . &|
|00005430| 31 30 30 32 31 20 84 20 | 77 72 69 74 65 25 3c 3c |10021 . |write%<<|
|00005440| 33 20 82 63 65 6e 74 72 | 65 25 3c 3c 33 20 84 20 |3 .centr|e%<<3 . |
|00005450| 37 3c 3c 32 34 0d 27 a6 | 0c 70 74 72 25 2b 3d 32 |7<<24.'.|.ptr%+=2|
|00005460| 34 0d 27 b0 05 cd 0d 27 | ba 0d fd 20 24 62 6c 6b |4.'....'|... $blk|
|00005470| 3d 22 22 0d 27 c4 05 ed | 0d 27 ce 18 6d 65 6e 75 |="".'...|.'..menu|
|00005480| 25 21 31 36 3d 28 6d 61 | 78 25 2b 32 29 2a 31 36 |%!16=(ma|x%+2)*16|
|00005490| 0d 27 d8 12 6d 68 25 28 | 6d 68 25 29 3d 6d 65 6e |.'..mh%(|mh%)=men|
|000054a0| 75 25 0d 27 e2 35 e7 20 | 24 6d 65 6e 75 25 3d 24 |u%.'.5. |$menu%=$|
|000054b0| 74 61 73 6b 20 8c 20 68 | 65 69 67 68 74 25 3d 34 |task . h|eight%=4|
|000054c0| 34 2a 6d 65 6e 75 69 74 | 65 6d 73 25 2b 32 34 2a |4*menuit|ems%+24*|
|000054d0| 64 6f 74 74 65 64 25 0d | 27 ec 1b 6d 65 6e 75 25 |dotted%.|'..menu%|
|000054e0| 2b 3d 32 38 2b 32 34 2a | 6d 65 6e 75 69 74 65 6d |+=28+24*|menuitem|
|000054f0| 73 25 0d 27 f6 05 e1 0d | 28 00 04 0d 28 0a 04 0d |s%.'....|(...(...|
|00005500| 28 14 0a dd f2 6e 65 78 | 74 0d 28 1e 11 24 62 6c |(....nex|t.(..$bl|
|00005510| 6b 3d c1 24 62 6c 6b 2c | 32 29 0d 28 28 0c 66 6f |k=.$blk,|2).((.fo|
|00005520| 75 6e 64 25 3d b9 0d 28 | 32 05 e1 0d 28 3c 04 0d |und%=..(|2...(<..|
|00005530| 28 46 04 0d 28 50 20 dd | f2 72 65 6c 6f 63 5f 70 |(F..(P .|.reloc_p|
|00005540| 72 6f 67 28 41 25 2c 42 | 25 2c 43 25 2c 44 25 2c |rog(A%,B|%,C%,D%,|
|00005550| 45 25 29 0d 28 5a 0d e7 | 20 41 25 3d 2d 31 20 8c |E%).(Z..| A%=-1 .|
|00005560| 0d 28 64 36 41 25 3d a0 | 24 a4 67 65 74 73 74 72 |.(d6A%=.|$.getstr|
|00005570| 28 72 65 6c 6f 63 25 2c | 38 29 2b 61 62 73 6f 66 |(reloc%,|8)+absof|
|00005580| 66 25 28 69 6e 74 25 29 | 2d 72 65 6c 6f 66 66 25 |f%(int%)|-reloff%|
|00005590| 28 69 6e 74 25 29 0d 28 | 6e 37 42 25 3d a0 24 a4 |(int%).(|n7B%=.$.|
|000055a0| 67 65 74 73 74 72 28 72 | 65 6c 6f 63 25 2c 31 30 |getstr(r|eloc%,10|
|000055b0| 29 2b 61 62 73 6f 66 66 | 25 28 69 6e 74 25 29 2d |)+absoff|%(int%)-|
|000055c0| 72 65 6c 6f 66 66 25 28 | 69 6e 74 25 29 0d 28 78 |reloff%(|int%).(x|
|000055d0| 36 43 25 3d a0 24 a4 67 | 65 74 73 74 72 28 72 65 |6C%=.$.g|etstr(re|
|000055e0| 6c 6f 63 25 2c 34 29 2b | 61 62 73 6f 66 66 25 28 |loc%,4)+|absoff%(|
|000055f0| 69 6e 74 25 29 2d 72 65 | 6c 6f 66 66 25 28 69 6e |int%)-re|loff%(in|
|00005600| 74 25 29 0d 28 82 36 44 | 25 3d a0 24 a4 67 65 74 |t%).(.6D|%=.$.get|
|00005610| 73 74 72 28 72 65 6c 6f | 63 25 2c 36 29 2b 61 62 |str(relo|c%,6)+ab|
|00005620| 73 6f 66 66 25 28 69 6e | 74 25 29 2d 72 65 6c 6f |soff%(in|t%)-relo|
|00005630| 66 66 25 28 69 6e 74 25 | 29 0d 28 8c 1b 45 25 3d |ff%(int%|).(..E%=|
|00005640| a0 24 a4 67 65 74 73 74 | 72 28 72 65 6c 6f 63 25 |.$.getst|r(reloc%|
|00005650| 2c 31 32 29 0d 28 96 05 | cd 0d 28 a0 10 d6 20 72 |,12).(..|..(... r|
|00005660| 65 6c 6f 63 5f 70 72 6f | 67 0d 28 aa 10 f2 64 61 |eloc_pro|g.(...da|
|00005670| 74 61 65 78 74 28 2d 31 | 29 0d 28 b4 10 f2 63 6f |taext(-1|).(...co|
|00005680| 64 65 65 78 74 28 2d 31 | 29 0d 28 be 05 e1 0d 28 |deext(-1|).(....(|
|00005690| c8 04 0d 28 d2 04 0d 28 | dc 16 dd f2 6d 6f 64 5f |...(...(|....mod_|
|000056a0| 73 65 6c 65 63 74 28 65 | 72 72 24 29 0d 28 e6 05 |select(e|rr$).(..|
|000056b0| f5 0d 28 f0 33 c8 99 20 | 22 58 4f 53 5f 4d 6f 64 |..(.3.. |"XOS_Mod|
|000056c0| 75 6c 65 22 2c 31 38 2c | 65 72 72 24 20 b8 20 2c |ule",18,|err$ . ,|
|000056d0| 6d 6f 64 25 2c 2c 62 61 | 73 65 25 2c 77 6f 72 6b |mod%,,ba|se%,work|
|000056e0| 25 3b 46 25 0d 28 fa 10 | e7 20 28 46 25 20 80 20 |%;F%.(..|. (F% . |
|000056f0| 31 29 20 8c 0d 29 04 2c | f2 65 72 72 28 22 43 61 |1) ..).,|.err("Ca|
|00005700| 6e 27 74 20 66 69 6e 64 | 20 6d 6f 64 75 6c 65 20 |n't find| module |
|00005710| 27 22 2b 65 72 72 24 2b | 22 27 22 2c 31 2c 30 29 |'"+err$+|"'",1,0)|
|00005720| 0d 29 0e 05 cc 0d 29 18 | 0a 69 6e 74 25 3d 30 0d |.)....).|.int%=0.|
|00005730| 29 22 21 61 62 73 6f 66 | 66 25 28 30 29 3d 62 61 |)"!absof|f%(0)=ba|
|00005740| 73 65 25 3a 72 65 6c 6f | 66 66 25 28 30 29 3d 30 |se%:relo|ff%(0)=0|
|00005750| 0d 29 2c 2b c8 99 20 22 | 58 4f 53 5f 4d 6f 64 75 |.),+.. "|XOS_Modu|
|00005760| 6c 65 22 2c 31 32 2c 6d | 6f 64 25 2b 31 20 b8 20 |le",12,m|od%+1 . |
|00005770| 2c 2c 2c 73 69 7a 65 25 | 3b 46 25 0d 29 36 20 e7 |,,,size%|;F%.)6 .|
|00005780| 20 28 46 25 20 80 20 31 | 29 3d 31 20 8c 20 73 69 | (F% . 1|)=1 . si|
|00005790| 7a 65 25 3d 62 61 73 65 | 25 2d 31 0d 29 40 0a c8 |ze%=base|%-1.)@..|
|000057a0| 8e 20 b9 20 ca 0d 29 4a | 27 c9 20 73 69 7a 65 25 |. . ..)J|'. size%|
|000057b0| 3e 3d 26 33 38 30 30 30 | 30 30 20 80 20 62 61 73 |>=&38000|00 . bas|
|000057c0| 65 25 3e 3d 26 33 38 30 | 30 30 30 30 0d 29 54 10 |e%>=&380|0000.)T.|
|000057d0| 73 69 7a 65 25 2d 3d 62 | 61 73 65 25 0d 29 5e 3b |size%-=b|ase%.)^;|
|000057e0| c9 20 62 61 73 65 25 3c | 26 33 38 30 30 30 30 30 |. base%<|&3800000|
|000057f0| 20 80 20 77 6f 72 6b 25 | 2d 62 61 73 65 25 3c 31 | . work%|-base%<1|
|00005800| 36 2a 31 30 32 34 20 80 | 20 77 6f 72 6b 25 2d 62 |6*1024 .| work%-b|
|00005810| 61 73 65 25 3e 36 34 0d | 29 68 15 73 69 7a 65 25 |ase%>64.|)h.size%|
|00005820| 3d 77 6f 72 6b 25 2d 62 | 61 73 65 25 0d 29 72 3b |=work%-b|ase%.)r;|
|00005830| c9 20 62 61 73 65 25 3c | 26 33 38 30 30 30 30 30 |. base%<|&3800000|
|00005840| 20 80 20 73 69 7a 65 25 | 2d 62 61 73 65 25 3c 31 | . size%|-base%<1|
|00005850| 36 2a 31 30 32 34 20 80 | 20 73 69 7a 65 25 2d 62 |6*1024 .| size%-b|
|00005860| 61 73 65 25 3e 36 34 0d | 29 7c 10 73 69 7a 65 25 |ase%>64.|)|.size%|
|00005870| 2d 3d 62 61 73 65 25 0d | 29 86 05 7f 0d 29 90 0c |-=base%.|)....)..|
|00005880| 73 69 7a 65 25 3d 2d 31 | 0d 29 9a 05 cb 0d 29 a4 |size%=-1|.)....).|
|00005890| 04 0d 29 ae c1 e7 20 73 | 69 7a 65 25 3c 30 20 8c |..)... s|ize%<0 .|
|000058a0| 20 73 69 7a 65 25 3d 38 | 2a 31 30 32 34 3a f2 65 | size%=8|*1024:.e|
|000058b0| 72 72 28 22 43 6f 75 6c | 64 6e 27 74 20 65 73 74 |rr("Coul|dn't est|
|000058c0| 69 6d 61 74 65 20 6d 6f | 64 75 6c 65 20 73 69 7a |imate mo|dule siz|
|000058d0| 65 2e 20 46 69 78 65 64 | 20 61 74 20 38 20 4b 42 |e. Fixed| at 8 KB|
|000058e0| 79 74 65 22 2c 31 2c 30 | 29 20 8b 20 f2 65 72 72 |yte",1,0|) . .err|
|000058f0| 28 22 4d 6f 64 75 6c 65 | 20 73 69 7a 65 20 69 73 |("Module| size is|
|00005900| 20 65 73 74 69 6d 61 74 | 65 64 20 74 6f 20 62 65 | estimat|ed to be|
|00005910| 20 61 62 6f 75 74 20 22 | 2b c3 28 73 69 7a 65 25 | about "|+.(size%|
|00005920| 20 81 20 31 30 32 34 29 | 2b 22 20 4b 42 79 74 65 | . 1024)|+" KByte|
|00005930| 2e 20 44 6f 20 6e 6f 74 | 20 72 65 6c 79 20 6f 6e |. Do not| rely on|
|00005940| 20 74 68 69 73 20 76 61 | 6c 75 65 21 22 2c 31 2c | this va|lue!",1,|
|00005950| 30 29 0d 29 b8 2d 73 69 | 7a 65 25 28 30 29 3d 28 |0).).-si|ze%(0)=(|
|00005960| 73 69 7a 65 25 2b 33 29 | 20 80 ac 33 3a 73 69 7a |size%+3)| ..3:siz|
|00005970| 65 32 25 28 30 29 3d 73 | 69 7a 65 25 28 30 29 0d |e2%(0)=s|ize%(0).|
|00005980| 29 c2 0a 69 6e 74 25 3d | 30 0d 29 cc 26 f2 66 69 |)..int%=|0.).&.fi|
|00005990| 6e 64 65 78 74 3a f2 63 | 6f 64 65 65 78 74 28 2d |ndext:.c|odeext(-|
|000059a0| 31 29 3a f2 64 61 74 61 | 65 78 74 28 2d 31 29 0d |1):.data|ext(-1).|
|000059b0| 29 d6 05 cd 0d 29 e0 05 | e1 0d 29 ea 04 0d 29 f4 |)....)..|..)...).|
|000059c0| 04 0d 29 fe 14 dd f2 75 | 70 64 61 74 65 5f 6d 6f |..)....u|pdate_mo|
|000059d0| 64 6c 69 73 74 0d 2a 08 | 0a ea 20 65 72 72 25 0d |dlist.*.|.. err%.|
|000059e0| 2a 12 1b 24 6d 6f 64 5f | 6d 65 6e 75 3d 22 4d 6f |*..$mod_|menu="Mo|
|000059f0| 64 75 6c 65 20 6c 69 73 | 74 22 0d 2a 1c 11 6d 6f |dule lis|t".*..mo|
|00005a00| 64 5f 6d 65 6e 75 3f 31 | 32 3d 37 0d 2a 26 11 6d |d_menu?1|2=7.*&.m|
|00005a10| 6f 64 5f 6d 65 6e 75 3f | 31 33 3d 32 0d 2a 30 11 |od_menu?|13=2.*0.|
|00005a20| 6d 6f 64 5f 6d 65 6e 75 | 3f 31 34 3d 37 0d 2a 3a |mod_menu|?14=7.*:|
|00005a30| 11 6d 6f 64 5f 6d 65 6e | 75 3f 31 35 3d 30 0d 2a |.mod_men|u?15=0.*|
|00005a40| 44 12 6d 6f 64 5f 6d 65 | 6e 75 21 32 30 3d 34 34 |D.mod_me|nu!20=44|
|00005a50| 0d 2a 4e 11 6d 6f 64 5f | 6d 65 6e 75 21 32 34 3d |.*N.mod_|menu!24=|
|00005a60| 30 0d 2a 58 21 70 74 72 | 25 3d 30 3a 6e 61 6d 65 |0.*X!ptr|%=0:name|
|00005a70| 73 25 3d 6d 6f 64 5f 6c | 69 73 74 3a 6d 61 78 25 |s%=mod_l|ist:max%|
|00005a80| 3d 30 0d 2a 62 05 f5 0d | 2a 6c 34 c8 99 20 22 58 |=0.*b...|*l4.. "X|
|00005a90| 4f 53 5f 4d 6f 64 75 6c | 65 22 2c 31 32 2c 70 74 |OS_Modul|e",12,pt|
|00005aa0| 72 25 20 b8 20 2c 70 74 | 72 25 2c 69 6e 73 74 25 |r% . ,pt|r%,inst%|
|00005ab0| 2c 62 61 73 65 25 3b 65 | 72 72 25 0d 2a 76 14 e7 |,base%;e|rr%.*v..|
|00005ac0| 20 28 65 72 72 25 20 80 | 20 31 29 3d 30 20 8c 0d | (err% .| 1)=0 ..|
|00005ad0| 2a 80 3c c8 95 20 69 6e | 73 74 25 3c 3e 30 3a c8 |*.<.. in|st%<>0:.|
|00005ae0| 99 20 22 4f 53 5f 4d 6f | 64 75 6c 65 22 2c 31 32 |. "OS_Mo|dule",12|
|00005af0| 2c 70 74 72 25 2c 69 6e | 73 74 25 20 b8 20 2c 70 |,ptr%,in|st% . ,p|
|00005b00| 74 72 25 2c 69 6e 73 74 | 25 3a ce 0d 2a 8a 13 69 |tr%,inst|%:..*..i|
|00005b10| 63 6f 6e 25 3d 30 3a 24 | 62 6c 6b 3d 22 22 0d 2a |con%=0:$|blk="".*|
|00005b20| 94 49 c8 95 20 69 63 6f | 6e 25 3f 28 62 61 73 65 |.I.. ico|n%?(base|
|00005b30| 25 2b 62 61 73 65 25 21 | 31 36 29 3c 3e 30 3a 24 |%+base%!|16)<>0:$|
|00005b40| 62 6c 6b 2b 3d bd 69 63 | 6f 6e 25 3f 28 62 61 73 |blk+=.ic|on%?(bas|
|00005b50| 65 25 2b 62 61 73 65 25 | 21 31 36 29 3a 69 63 6f |e%+base%|!16):ico|
|00005b60| 6e 25 2b 3d 31 3a ce 0d | 2a 9e 2c e7 20 6e 61 6d |n%+=1:..|*.,. nam|
|00005b70| 65 73 25 2b a9 24 62 6c | 6b 2b 31 2d 6d 6f 64 5f |es%+.$bl|k+1-mod_|
|00005b80| 6c 69 73 74 3c 3d 6d 6f | 64 5f 6d 61 78 25 2a 32 |list<=mo|d_max%*2|
|00005b90| 30 20 8c 0d 2a a8 21 69 | 63 6f 6e 25 3d 6d 6f 64 |0 ..*.!i|con%=mod|
|00005ba0| 5f 6d 65 6e 75 2b 32 38 | 2b 32 34 2a 28 70 74 72 |_menu+28|+24*(ptr|
|00005bb0| 25 2d 31 29 0d 2a b2 0d | 69 63 6f 6e 25 21 30 3d |%-1).*..|icon%!0=|
|00005bc0| 30 0d 2a bc 0e 69 63 6f | 6e 25 21 34 3d 2d 31 0d |0.*..ico|n%!4=-1.|
|00005bd0| 2a c6 20 69 63 6f 6e 25 | 21 38 3d 32 35 36 20 84 |*. icon%|!8=256 .|
|00005be0| 20 26 31 30 30 32 31 20 | 84 20 37 3c 3c 32 34 0d | &10021 |. 7<<24.|
|00005bf0| 2a d0 13 69 63 6f 6e 25 | 21 31 32 3d 6e 61 6d 65 |*..icon%|!12=name|
|00005c00| 73 25 0d 2a da 0f 69 63 | 6f 6e 25 21 31 36 3d 2d |s%.*..ic|on%!16=-|
|00005c10| 31 0d 2a e4 14 69 63 6f | 6e 25 21 32 30 3d a9 24 |1.*..ico|n%!20=.$|
|00005c20| 62 6c 6b 2b 31 0d 2a ee | 20 24 6e 61 6d 65 73 25 |blk+1.*.| $names%|
|00005c30| 3d 24 62 6c 6b 3a 6e 61 | 6d 65 73 25 2b 3d a9 24 |=$blk:na|mes%+=.$|
|00005c40| 62 6c 6b 2b 31 0d 2a f8 | 1d e7 20 a9 24 62 6c 6b |blk+1.*.|.. .$blk|
|00005c50| 3e 6d 61 78 25 20 8c 20 | 6d 61 78 25 3d a9 24 62 |>max% . |max%=.$b|
|00005c60| 6c 6b 0d 2b 02 05 cd 0d | 2b 0c 05 cd 0d 2b 16 47 |lk.+....|+....+.G|
|00005c70| fd 20 70 74 72 25 3d 6d | 6f 64 5f 6d 61 78 25 20 |. ptr%=m|od_max% |
|00005c80| 84 20 6e 61 6d 65 73 25 | 2b a9 24 62 6c 6b 2b 31 |. names%|+.$blk+1|
|00005c90| 2d 6d 6f 64 5f 6c 69 73 | 74 3e 6d 6f 64 5f 6d 61 |-mod_lis|t>mod_ma|
|00005ca0| 78 25 2a 32 30 20 84 20 | 28 65 72 72 25 20 80 31 |x%*20 . |(err% .1|
|00005cb0| 29 3d 31 0d 2b 20 1a 6d | 6f 64 5f 6d 65 6e 75 21 |)=1.+ .m|od_menu!|
|00005cc0| 31 36 3d 6d 61 78 25 2a | 31 36 2b 31 36 0d 2b 2a |16=max%*|16+16.+*|
|00005cd0| 22 21 28 6d 6f 64 5f 6d | 65 6e 75 2b 32 38 2b 32 |"!(mod_m|enu+28+2|
|00005ce0| 34 2a 28 70 74 72 25 2d | 31 29 29 3d 26 38 30 0d |4*(ptr%-|1))=&80.|
|00005cf0| 2b 34 86 e7 20 28 65 72 | 72 25 20 80 20 31 29 3d |+4.. (er|r% . 1)=|
|00005d00| 30 20 8c 20 f2 65 72 72 | 28 22 54 68 65 72 65 20 |0 . .err|("There |
|00005d10| 69 73 20 6e 6f 74 20 65 | 6e 6f 75 67 68 20 6d 65 |is not e|nough me|
|00005d20| 6e 75 20 73 70 61 63 65 | 20 74 6f 20 6c 69 73 74 |nu space| to list|
|00005d30| 20 61 6c 6c 20 74 68 65 | 20 6d 6f 64 75 6c 65 73 | all the| modules|
|00005d40| 2e 20 54 68 65 20 66 69 | 72 73 74 20 22 2b c3 70 |. The fi|rst "+.p|
|00005d50| 74 72 25 2b 22 20 6d 6f | 64 75 6c 65 73 20 68 61 |tr%+" mo|dules ha|
|00005d60| 76 65 20 62 65 65 6e 20 | 6c 69 73 74 65 64 2e 22 |ve been |listed."|
|00005d70| 2c 31 2c 30 29 0d 2b 3e | 05 e1 0d 2b 48 04 0d 2b |,1,0).+>|...+H..+|
|00005d80| 52 04 0d 2b 5c 0e dd f2 | 6c 6f 61 64 63 6f 64 65 |R..+\...|loadcode|
|00005d90| 0d 2b 66 32 c8 99 20 22 | 4f 53 5f 46 69 6c 65 22 |.+f2.. "|OS_File"|
|00005da0| 2c 35 2c 22 3c 4d 6f 6e | 69 74 6f 72 24 44 69 72 |,5,"<Mon|itor$Dir|
|00005db0| 3e 2e 43 6f 64 65 22 20 | b8 20 2c 2c 2c 2c 6c 65 |>.Code" |. ,,,,le|
|00005dc0| 6e 25 0d 2b 70 36 c8 99 | 20 22 4f 53 5f 46 69 6c |n%.+p6..| "OS_Fil|
|00005dd0| 65 22 2c 35 2c 22 3c 4d | 6f 6e 69 74 6f 72 24 44 |e",5,"<M|onitor$D|
|00005de0| 69 72 3e 2e 53 57 49 54 | 61 62 6c 65 22 20 b8 20 |ir>.SWIT|able" . |
|00005df0| 2c 2c 2c 2c 66 6c 67 25 | 0d 2b 7a 5a e7 20 6c 65 |,,,,flg%|.+zZ. le|
|00005e00| 6e 25 2b 66 6c 67 25 3e | 70 72 6f 67 73 69 7a 65 |n%+flg%>|progsize|
|00005e10| 25 20 8c 20 85 20 31 2c | 22 43 6f 64 65 20 69 73 |% . . 1,|"Code is|
|00005e20| 20 74 6f 6f 20 6c 61 72 | 67 65 2e 20 50 6c 65 61 | too lar|ge. Plea|
|00005e30| 73 65 20 61 6c 6c 6f 63 | 61 74 65 20 6d 6f 72 65 |se alloc|ate more|
|00005e40| 20 6d 65 6d 6f 72 79 20 | 66 6f 72 20 70 72 6f 67 | memory |for prog|
|00005e50| 25 22 0d 2b 84 2f c8 99 | 20 22 4f 53 5f 46 69 6c |%".+./..| "OS_Fil|
|00005e60| 65 22 2c 32 35 35 2c 22 | 3c 4d 6f 6e 69 74 6f 72 |e",255,"|<Monitor|
|00005e70| 24 44 69 72 3e 2e 43 6f | 64 65 22 2c 70 72 6f 67 |$Dir>.Co|de",prog|
|00005e80| 25 0d 2b 8e 38 c8 99 20 | 22 4f 53 5f 46 69 6c 65 |%.+.8.. |"OS_File|
|00005e90| 22 2c 32 35 35 2c 22 3c | 4d 6f 6e 69 74 6f 72 24 |",255,"<|Monitor$|
|00005ea0| 44 69 72 3e 2e 53 57 49 | 54 61 62 6c 65 22 2c 70 |Dir>.SWI|Table",p|
|00005eb0| 72 6f 67 25 2b 6c 65 6e | 25 0d 2b 98 05 e1 0d 2b |rog%+len|%.+....+|
|00005ec0| a2 04 0d 2b ac 0f dd f2 | 69 6e 69 74 63 6f 64 65 |...+....|initcode|
|00005ed0| 73 0d 2b b6 10 70 74 72 | 25 3d 70 72 6f 67 25 2d |s.+..ptr|%=prog%-|
|00005ee0| 34 0d 2b c0 0d 72 65 64 | 72 61 77 3d a4 61 0d 2b |4.+..red|raw=.a.+|
|00005ef0| ca 0d 75 70 64 61 74 65 | 3d a4 61 0d 2b d4 0f 61 |..update|=.a.+..a|
|00005f00| 73 73 65 6d 62 6c 65 3d | a4 61 0d 2b de 0d 64 69 |ssemble=|.a.+..di|
|00005f10| 73 61 73 73 3d a4 61 0d | 2b e8 0e 65 78 65 63 75 |sass=.a.|+..execu|
|00005f20| 74 65 3d a4 61 0d 2b f2 | 0c 65 78 65 72 72 3d a4 |te=.a.+.|.exerr=.|
|00005f30| 61 0d 2b fc 0c 61 6c 6c | 6f 63 3d a4 61 0d 2c 06 |a.+..all|oc=.a.,.|
|00005f40| 0d 73 65 61 72 63 68 3d | a4 61 0d 2c 10 0b 78 72 |.search=|.a.,..xr|
|00005f50| 65 66 3d a4 61 0d 2c 1a | 0d 73 74 72 69 6e 67 3d |ef=.a.,.|.string=|
|00005f60| a4 61 0d 2c 24 11 63 6f | 70 79 5f 62 6c 6f 63 6b |.a.,$.co|py_block|
|00005f70| 3d a4 61 0d 2c 2e 14 77 | 72 69 74 65 63 3d 70 72 |=.a.,..w|ritec=pr|
|00005f80| 6f 67 25 2b 21 a4 61 0d | 2c 38 15 72 65 67 64 75 |og%+!.a.|,8.regdu|
|00005f90| 6d 70 3d 70 72 6f 67 25 | 2b 21 a4 61 0d 2c 42 16 |mp=prog%|+!.a.,B.|
|00005fa0| 6c 69 6e 6b 61 64 64 72 | 3d 70 72 6f 67 25 2b 21 |linkaddr|=prog%+!|
|00005fb0| a4 61 0d 2c 4c 14 62 72 | 65 61 6b 6c 3d 70 72 6f |.a.,L.br|eakl=pro|
|00005fc0| 67 25 2b 21 a4 61 0d 2c | 56 12 73 74 65 70 3d 70 |g%+!.a.,|V.step=p|
|00005fd0| 72 6f 67 25 2b 21 a4 61 | 0d 2c 60 14 76 65 63 6e |rog%+!.a|.,`.vecn|
|00005fe0| 75 6d 3d 70 72 6f 67 25 | 2b 21 a4 61 0d 2c 6a 05 |um=prog%|+!.a.,j.|
|00005ff0| e1 0d 2c 74 04 0d 2c 7e | 04 0d 2c 88 07 dd a4 61 |..,t..,~|..,....a|
|00006000| 0d 2c 92 0b 70 74 72 25 | 2b 3d 34 0d 2c 9c 09 3d |.,..ptr%|+=4.,..=|
|00006010| 70 74 72 25 0d 2c a6 04 | 0d 2c b0 10 dd a4 69 73 |ptr%.,..|.,....is|
|00006020| 63 6f 64 65 28 68 25 29 | 0d 2c ba 09 6c 25 3d 2d |code(h%)|.,..l%=-|
|00006030| 38 0d 2c c4 0b f5 20 6c | 25 2b 3d 38 0d 2c ce 18 |8.,... l|%+=8.,..|
|00006040| fd 20 68 25 3d 77 69 6e | 73 21 6c 25 20 84 20 6c |. h%=win|s!l% . l|
|00006050| 25 3d 36 34 0d 2c d8 2f | e7 20 28 6c 25 3d 36 34 |%=64.,./|. (l%=64|
|00006060| 20 84 20 28 77 69 6e 73 | 21 28 6c 25 2b 34 29 20 | . (wins|!(l%+4) |
|00006070| 80 20 33 29 3c 3e 30 29 | 20 8c 20 3d 30 20 8b 20 |. 3)<>0)| . =0 . |
|00006080| 3d 68 25 0d 2c e2 04 0d | 2c ec 10 dd a4 69 73 64 |=h%.,...|,....isd|
|00006090| 61 74 61 28 68 25 29 0d | 2c f6 09 6c 25 3d 2d 38 |ata(h%).|,..l%=-8|
|000060a0| 0d 2d 00 0b f5 20 6c 25 | 2b 3d 38 0d 2d 0a 18 fd |.-... l%|+=8.-...|
|000060b0| 20 68 25 3d 77 69 6e 73 | 21 6c 25 20 84 20 6c 25 | h%=wins|!l% . l%|
|000060c0| 3d 36 34 0d 2d 14 2f e7 | 20 28 6c 25 3d 36 34 20 |=64.-./.| (l%=64 |
|000060d0| 84 20 28 77 69 6e 73 21 | 28 6c 25 2b 34 29 20 80 |. (wins!|(l%+4) .|
|000060e0| 20 33 29 3c 3e 31 29 20 | 8c 20 3d 30 20 8b 20 3d | 3)<>1) |. =0 . =|
|000060f0| 68 25 0d 2d 1e 04 0d 2d | 28 0f dd a4 69 6e 64 65 |h%.-...-|(...inde|
|00006100| 78 28 68 25 29 0d 2d 32 | 09 6c 25 3d 2d 38 0d 2d |x(h%).-2|.l%=-8.-|
|00006110| 3c 0b f5 20 6c 25 2b 3d | 38 0d 2d 46 18 fd 20 68 |<.. l%+=|8.-F.. h|
|00006120| 25 3d 77 69 6e 73 21 6c | 25 20 84 20 6c 25 3d 36 |%=wins!l|% . l%=6|
|00006130| 34 0d 2d 50 25 e7 20 6c | 25 3d 36 34 20 8c 20 85 |4.-P%. l|%=64 . .|
|00006140| 20 31 2c 22 42 61 64 20 | 77 69 6e 64 6f 77 20 68 | 1,"Bad |window h|
|00006150| 61 6e 64 6c 65 22 0d 2d | 5a 0a 3d 6c 25 20 81 38 |andle".-|Z.=l% .8|
|00006160| 0d 2d 64 04 0d 2d 6e 04 | 0d 2d 78 1a dd f2 66 64 |.-d..-n.|.-x...fd|
|00006170| 6f 75 62 6c 65 28 77 69 | 6e 78 25 2c 77 69 6e 79 |ouble(wi|nx%,winy|
|00006180| 25 29 0d 2d 82 15 77 69 | 6e 79 25 3d 2d 77 69 6e |%).-..wi|ny%=-win|
|00006190| 79 25 20 81 20 33 32 0d | 2d 8c 2c 74 61 62 69 6e |y% . 32.|-.,tabin|
|000061a0| 64 25 3d 77 69 6e 79 25 | 20 81 20 28 72 65 67 75 |d%=winy%| . (regu|
|000061b0| 70 25 2b 72 65 67 64 6e | 25 2b 31 2b 62 6c 61 6e |p%+regdn|%+1+blan|
|000061c0| 6b 25 29 0d 2d 96 28 75 | 70 25 3d 77 69 6e 79 25 |k%).-.(u|p%=winy%|
|000061d0| 20 83 20 28 72 65 67 75 | 70 25 2b 72 65 67 64 6e | . (regu|p%+regdn|
|000061e0| 25 2b 31 2b 62 6c 61 6e | 6b 25 29 0d 2d a0 2c e7 |%+1+blan|k%).-.,.|
|000061f0| 20 75 70 25 3c 3e 72 65 | 67 75 70 25 2b 72 65 67 | up%<>re|gup%+reg|
|00006200| 64 6e 25 2b 62 6c 61 6e | 6b 25 20 84 20 62 6c 61 |dn%+blan|k% . bla|
|00006210| 6e 6b 25 3d 30 20 8c 0d | 2d aa 2b 6e 25 3d 66 6f |nk%=0 ..|-.+n%=fo|
|00006220| 75 6e 64 6c 69 73 74 21 | 28 74 61 62 69 6e 64 25 |undlist!|(tabind%|
|00006230| 2a 34 29 2b 28 75 70 25 | 2d 72 65 67 75 70 25 29 |*4)+(up%|-regup%)|
|00006240| 2a 34 0d 2d b4 3a e7 20 | 6e 25 2d 72 65 6c 6f 66 |*4.-.:. |n%-relof|
|00006250| 66 25 28 69 6e 74 25 29 | 3c 73 69 7a 65 25 28 69 |f%(int%)|<size%(i|
|00006260| 6e 74 25 29 20 80 20 6e | 25 2d 72 65 6c 6f 66 66 |nt%) . n|%-reloff|
|00006270| 25 28 69 6e 74 25 29 3e | 3d 30 20 8c 0d 2d be 04 |%(int%)>|=0 ..-..|
|00006280| 0d 2d c8 14 62 6c 6b 21 | 30 3d a4 6e 65 77 77 69 |.-..blk!|0=.newwi|
|00006290| 6e 28 30 29 0d 2d d2 11 | e7 20 62 6c 6b 21 30 3c |n(0).-..|. blk!0<|
|000062a0| 3e 2d 31 20 8c 0d 2d dc | 21 c8 99 20 22 57 69 6d |>-1 ..-.|!.. "Wim|
|000062b0| 70 5f 47 65 74 57 69 6e | 64 6f 77 53 74 61 74 65 |p_GetWin|dowState|
|000062c0| 22 2c 2c 62 6c 6b 0d 2d | e6 22 62 6c 6b 21 32 34 |",,blk.-|."blk!24|
|000062d0| 3d 2d 28 6e 25 2d 72 65 | 6c 6f 66 66 25 28 69 6e |=-(n%-re|loff%(in|
|000062e0| 74 25 29 29 2a 38 2b 38 | 0d 2d f0 1d c8 99 20 22 |t%))*8+8|.-.... "|
|000062f0| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|00006300| 2c 2c 62 6c 6b 0d 2d fa | 05 cd 0d 2e 04 05 cd 0d |,,blk.-.|........|
|00006310| 2e 0e 05 cd 0d 2e 18 05 | e1 0d 2e 22 04 0d 2e 2c |........|..."...,|
|00006320| 1a dd f2 63 64 6f 75 62 | 6c 65 28 77 69 6e 78 25 |...cdoub|le(winx%|
|00006330| 2c 77 69 6e 79 25 29 0d | 2e 36 16 6e 25 3d 28 77 |,winy%).|.6.n%=(w|
|00006340| 69 6e 79 25 20 81 20 33 | 32 29 2a 2d 34 0d 2e 40 |iny% . 3|2)*-4..@|
|00006350| 1e e7 20 6e 25 3c 73 69 | 7a 65 25 28 69 6e 74 25 |.. n%<si|ze%(int%|
|00006360| 29 20 80 20 6e 25 3e 2d | 31 20 8c 0d 2e 4a 04 0d |) . n%>-|1 ...J..|
|00006370| 2e 54 17 41 25 3d 72 65 | 6c 6f 66 66 25 28 69 6e |.T.A%=re|loff%(in|
|00006380| 74 25 29 2b 6e 25 0d 2e | 5e 17 42 25 3d 61 62 73 |t%)+n%..|^.B%=abs|
|00006390| 6f 66 66 25 28 69 6e 74 | 25 29 2b 6e 25 0d 2e 68 |off%(int|%)+n%..h|
|000063a0| 0d 43 25 3d 30 3a 44 25 | 3d 30 0d 2e 72 0d 45 25 |.C%=0:D%|=0..r.E%|
|000063b0| 3d 25 31 31 31 31 31 0d | 2e 7c 0d 46 25 3d 33 32 |=%11111.|.|.F%=32|
|000063c0| 20 84 20 31 0d 2e 86 12 | 6f 66 66 73 25 3d ba 20 | . 1....|offs%=. |
|000063d0| 64 69 73 61 73 73 0d 2e | 90 04 0d 2e 9a 16 e7 20 |disass..|....... |
|000063e0| 6f 66 66 73 25 3f 31 38 | 3c 3e 97 22 42 22 20 8c |offs%?18|<>."B" .|
|000063f0| 0d 2e a4 1c f5 20 6f 66 | 66 73 25 2b 3d 31 3a fd |..... of|fs%+=1:.|
+--------+-------------------------+-------------------------+--------+--------+